autofill until empty

[sufianmalik]

How do i use autofil in vba to fill down until adjacent cell is empty? (like you do with the fill handle and double click)

 

[JamesW]

EDIT: I need to learn to read.

Try:

    Dim lRow As Long
    lRow = Range("A1").End(xlDown).Row
    Range("B2").AutoFill Destination:=Range("B2:B" & lRow)

Change ranges to suit.