VBA 从一个excel读取特定行，列到指定excel

Private Function splitExcelName(row, myFileName) As String
'This function will get task ID, subtask ID, task owner or subtask owner from the excel file name
Dim colTaskID, colSubtaskID, colTaskOwner, colSubtaskOwner
Dim substring, namestring

    'init column
    colTaskID = 1
    colSubtaskID = 2
    colTaskOwner = 3
    colSubtaskOwner = 4
   
    rawName = 2 'the start row for the same name in excel file
    colName = 1  'the column for the same name in excel file
    colActualName = 2 'the column for the actual name show out
   
    substring = Split(myFileName, "-")

    Worksheets("Get Task Time").Cells(row, colTaskID) = substring(1) 'get task ID
    Worksheets("Get Task Time").Cells(row, colSubtaskID) = substring(3) 'get subtask ID
    namestring = Split(substring(4), ".