Kod u nasıl düzeltmeliyim

[kykbt]

-----------------------------
Range("W6").Select
Range("W7:Y300").ClearContents
Range("C6:C2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"W6:W200"), CopyToRange:=Range("W6"), Unique:=True
Range("V5").Select

Range("W7:W300").Select
Selection.Sort Key1:=Range("W7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Z5").Select
------------------------------
Arkadaşlar yukarıdaki kod içinde farkındasınızki son hücreyi belirtmek durumunda kalıyorum bu durum beni bazen yetersiz hücre adresi belirtmemden sıkıntıya sokuyor.
İstediğim; örnek --Range("W7:W300").Select-- bu kod yerine --Range("W7:W**").Select-- yani W sutunundaki gerekli olan en son veriye kadar kendi bilsin istiyorum. Ne yapmalıyım.

 

[Zeki Gürsoy]

Merhaba,

Şunu kullanabilirsiniz.

    Range("W7:W" & Sheets("Sayfanız").[w65000].end(3).row).Select

 

[kykbt]

Çok sağol. Arkadaşım makbule geçti, işimi çözdüm.