xls vba script to copy multiple columns to other workbook

myvb.vb

Sub CopyColumnsToOtherWorkbook()
  
  Dim srcBook As Workbook
  Dim srcSheet As Worksheet
  Dim destSheet As Worksheet

  Set srcBook = Workbooks.Open("C:\vba\source.xlsm", ReadOnly = True)
  Set srcSheet = srcBook.Worksheets("SheetName")
  Set destSheet = ThisWorkbook.Worksheets("SheetName")

  srcSheet.Range("H2:H4").Copy
  destSheet.Range("D3:D5").PasteSpecial (xlPasteValues)

  srcSheet.Range("T2:T4").Copy
  destSheet.Range("H3:H5").PasteSpecial (xlPasteValues)
  
  srcBook.Close
  ThisWorkbook.Save
  ThisWorkbook.Close
  
End Sub