hello evryone

i m using some data copy multiple range and paste on another book

this macro is not working well

Sub Macro2()
ActiveWorkbook.Worksheets("V2").Select
    Range("C5:C56").Select
     Range("E5:E56").Select
      Range("F5:F56").Select
       Range("G5:G56").Select
    Selection.Copy
    Windows("Vouchers - Purchase Transactions With StockItems - Copy.xlsm"). _
        Activate
    Range("D7").Select
    Range("F7").Select
    Range("H7").Select
    Range("J7").Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    
End Sub
want this one

copy c5:c56 and paste on d7
copy e5:e56 and paste on f7
copy f5:f56 and paste on h7
copy g5:g56 and paste on j7