[Dakkar]

Dim Zakres As Variant
LiczbaP = WorksheetFunction.CountA(Range("A:A")) - 1
Range("V2:W2").Select
Zakres = Selection.Offset(LiczbaP, 0)
Range(Zakres).Select

Czemu to nie działa!? (╯°□°）╯︵ ┻━┻
#excel

[woyt]

tak zadziała:
Dim Zakres As Variant
LiczbaP = WorksheetFunction.CountA(Range("A:A")) - 1
Range("V2:W2").Select
Set Zakres = Selection.Offset(LiczbaP, 0)
Range("" & Zakres.Address & "").Select

ale lepiej byłoby:
Dim Zakres As Range
LiczbaP = WorksheetFunction.CountA(Range("A:A")) - 1
Range("V2:W2").Select
Set Zakres = Selection.Offset(LiczbaP, 0)
Zakres.Select

[Dakkar]

@woyt: Dzięki Ci mistrzu! :-) W końcu. Tyle godzin zmarnowane na takiej głupocie

[Uri_]

@woyt: ten Zakres i zaznaczanie pośrednie jest do czegoś potrzebne? @Dakkar:

 LiczbaP = WorksheetFunction.CountA(Range("A:A")) - 1
 Range("V2:W2").Offset(LiczbaP, 0).Select

[woyt]

@Uri_: zaznaczanie nie jest potrzebne, ale chciałem w jak najmniejszym stopniu ingerować w oryginalny kod, stąd też pozostawienie obiektu Zakres który może być ewentualnie wykorzystywany w dalszej części procedury

[Dakkar]

@Uri_:
@woyt: I bardzo dobrze.:
Range("V2:W2")

Było wstawione tylko tymczasowo