Urgent help required, deadline 18.00 today

Sub testme()
Dim rng As Range
Dim lastRow As Long
    
    'PRIMARY SKILL / ROLE
    Windows("received List.xls").Activate
    lastRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
    Set rng = Range("B2:B" & lastRow)
    rng.Copy
    Windows("Spreadsheet Template - Do Not Amend.xls").Activate
    Range("C2").Select
    ActiveSheet.Paste
    
    'TEAM LEADER
    Windows("received List.xls").Activate
    Set rng = Range("H2:H" & lastRow)
    rng.Copy
    Windows("Spreadsheet Template - Do Not Amend.xls").Activate
    Range("I2").Select
    ActiveSheet.Paste

    
End Sub