Auto Fill - Multiple Columns

Try this:

Sub test ()

Sheets("INSERT SHEET NAME HERE").Select
Dim wsheet As Worksheet
Dim LastRow As Long

LastRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row
Range("A2:C" & LastRow).FillDown

End Sub

Hope it works for you!