Copy dữ liệu tử ổ cứng vào file excel

[tnfsmith]

Mình có đoạn code bên dưới dùng để copy dữ liệu từ một file trên đĩa cứng vào một workbook đang ở. Nhưng chổ DestRange mình muốn chỉ định là dữ liệu từ ô A2:B100 được copy vào một range ví dụ như C2100 ở DestRange thì phải chỉnh code thế nào? Mong mọi người giúp nhé. Thanks!

Sub Load_Data()
Application.ScreenUpdating = False
On Error Resume Next
'Call the macro GetRange
GetRange "D:\BACKUP", "TK.xls", "Sheet1", "A2:B100", _
ActiveCell
On Error Goto 0
Application.ScreenUpdating = True
End Sub

Sub GetRange(FilePath As String, FileName As String, SheetName As String, _
SourceRange As String, DestRange As Range)
Dim Start
'Go to the destination range
Application.Goto DestRange
'Resize the DestRange to the same size as the SourceRange
Set DestRange = DestRange.Resize(Range(SourceRange).Rows.Count, _
Range(SourceRange).Columns.Count)
'Add formula links to the closed file
With DestRange
.FormulaArray = "='" & FilePath & "/[" & FileName & "]" & SheetName & "'!" & SourceRange
'Wait
Start = Timer
Do While Timer < Start + 2
DoEvents
Loop

'Make values from the formulas
.Copy
.PasteSpecial xlPasteValues
.Cells(1).Select
Application.CutCopyMode = False
End With
End Sub