Access VisualBasic Script

Sub copy()
    range("A:D").SpecialCells(xlCellTypeConstants, 1).copy range("I1")
End Sub