Kopier celler

Mener du, at cellen du står i skal kopieres nedad lige så langt, som der er udfyldte celler i kolonne B?

Ja men jeg støder ind i en tom celle på vej nedad i kolonne B
men den ligger altid ovenonver cellen som jeg står i.
Så hvis den kan ta' fra rækken jeg står og kopiere ned så langt der er værdier i B så vil det være perfekt!

Hov! Det er 1 og ikke -1
ActiveSheet.Range("C1").End(xlDown).Offset(2, 1).Select

Dette skulle gerne kopiere den aktive celles indhold fra den aktive celle til den række i den aktive celles kolonne, der svarer til den sidste række i B-kolonnen:

    Dim ref As String, kb As String, rk As Long
   
    'Find kolonnebogstavet for active celle
    kb = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
   
    'find den sidste, brugte række i B-kolonnen
    rk = ActiveSheet.Range("b65536").End(xlUp).Row
   
    'Fyld fra aktive celle til sidste række i B-kolonnen i aktive celles kolonne
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kb & "$" & rk)

Smid et svar! Det spiller :)

Et svar :-)