VBA: Copy Date in Cell B2 & Paste Range B3 to last Row

[wavery]

Hello,
I am looking for a VBA Code to copy the Date in Cell B2 on Worksheet "Page1" and Paste the date in a range from cell B3 through bottom row on same worksheet.

 

[Joe4]

How are you determining where the "bottom row" is?
Can we just look to column A to see where last line of data is, or should we be looking at a different column?

 

[wavery]

Column "A" will be fine.

 

[Joe4]

Just a few lines of code will work:

Sub MyCopy()

    Dim lr As Long
    
'   Find last row with data in column A
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Copy date in B2 down for all rows
    Range("B3:B" & lr).Value = Range("B2").Value

End Sub

 

[wavery]

This is great thank you.

 

[Joe4]

You are welcome!