Find last row through a macro
Combination of both. Great !! Thank you to both of you. Really
appreciate
somethinglikeant wrote:
delete the rows with empty cells first then fill down
Sub Macro1()
qend = [A65536].End(xlUp).Row
Range("A" & qend).Select:
For i = qend To 1 Step -1:
Range("A" & i).Select
If IsEmpty(ActiveCell) Then ActiveCell.EntireRow.Delete
Next i
qend = [A65536].End(xlUp).Row
Range("C1", Range("A1").End(xlDown)).Offset(0, 2).FillDown 'nice one
mike
End Sub
somethinglikeant
|