![]()
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
Bookmarks