Autofill the data based on non blank cell in next row?

[Rajesh Kr Joshi]

Hi,

Got a solution , not sure how professional it is, but worked for me.

Sub test2()
LastCol = Range("A2").End(xlToRight).Column
lastrow = Range("B2").End(xlUp).Row
Debug.Print lastrow, LastCol
Range("A1").AutoFill Destination:=Range("A1", Cells(1, LastCol)), Type:=xlFillDefault

End Sub

Thanks
Rajesh