Copy from One sheet to Other SHeet

I want to Copy value from Sheet 1 (A1) to the Remaining Cells of Column D in Sheet 2

Macro recording is not working. Appreciate if someone helps me to write proper code

    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveCell.Offset(0, -1).Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveCell.Offset(-1, 0).Range("A1:A2").Select
    ActiveCell.Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False

Here you go

Sub copyover()
Dim s1, s2 As Worksheet
Dim lr As Long
Set s1 = Sheet1
Set s2 = Sheet2
lr = Cells(Rows.Count, "B").End(xlUp).Row

s2.Range(Cells(6, 4), Cells(lr, 4)) = s1.[A1]
s2.Range(Cells(6, 4), Cells(lr, 4)).NumberFormat = "m/d/yyyy"
End Sub

Sub test()
    Sheets("sheet1").Range("a1").Copy
    With Sheets("sheet2")
        On Error Resume Next
        .Range("a6", .Range("a" & Rows.Count).End(xlUp)).Columns("d").SpecialCells(4).PasteSpecial
        On Error GoTo 0
    End With
End Sub

thanks both codes working fine. Problem solved