View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
[email protected] sandip.dhamapurkar@gmail.com is offline
external usenet poster
 
Posts: 29
Default 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