excel vba to fill down column till first blank cell in another column

[BORUCH]

hi

I'm looking for help with an excel vba that fills down column M from cell M26 till it finds the first empty cell in column A

Thanks

 

[mrshl9898]

An option

Sub DoTheThing()

Dim rownum As Long
rownum = 26

Do Until Cells(rownum + 1, 1) = ""
    Cells(rownum, 13).Copy Cells(rownum + 1, 13)
    rownum = rownum + 1
Loop


End Sub

 

[Peter_SSs]

Does this do what you want?

Sub Fill_Down()
  Range("M26:M" & Range("A26").End(xlDown).Row).FillDown
End Sub

 

[BORUCH]

An option

Sub DoTheThing()

Dim rownum As Long
rownum = 26

Do Until Cells(rownum + 1, 1) = ""
    Cells(rownum, 13).Copy Cells(rownum + 1, 13)
    rownum = rownum + 1
Loop


End Sub

thanks very much

 

[BORUCH]

Does this do what you want?

Sub Fill_Down()
  Range("M26:M" & Range("A26").End(xlDown).Row).FillDown
End Sub

thanks

 

[Peter_SSs]

You're welcome. Glad we could help.