What is the static cell:
you said:
"in a static cell"
Sub Copy_Datestamp()
'
' Copy_Datestamp Macro
'
'
Range("B2").Select
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Sub Test()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(Lastrow, "B").Value = Cells(2, "B").Value
End Sub
Try this:
Code:Sub Test() Dim Lastrow As Long Lastrow = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lastrow, "B").Value = Cells(2, "B").Value End Sub
Thank you. this works perfectly