VBA Code for Repeating An action

Hi everybody i m new to vba plz help me regarding following macro which i want to apply on all excel files in that folder.

Thanks in advance.




Sub Macro1()
'
' Macro1 Macro
'

'
Workbooks.Open Filename:="D:\Aziz\Office Files\Workbook 1.xlsx"
Range("A2:D2").Select
Selection.Copy
ActiveWindow.Close
Range("A2").Select
ActiveSheet.Paste
Range("A3").Select
Workbooks.Open Filename:="D:\Aziz\Office Files\workbook 2.xlsx"
Range("A2:D2").Select
Selection.Copy
ActiveWindow.Close
ActiveSheet.Paste
Range("A4").Select
Workbooks.Open Filename:="D:\Aziz\Office Files\Workbook 3.xlsx"
Range("A2:D2").Select
Selection.Copy
ActiveWindow.Close
ActiveSheet.Paste
Range("A5").Select


End Sub