Excel 将信息从动态表拉到静态表

我在工作簿（Research tracker-seem Image）中有一个动态表，我试图将某些列中的信息复制到静态工作簿（ICCharge-see Image）中。我想从Research tracker转到IC charge的精确专栏如下

• H到C，K到A，U到L，AB到J，AC到K 从ICCharge sheet中的第14行开始

。我的代码在下面

  Sub InfoPull()
    'Find the last used row in both sheets and copy and paste data below existing data.
   Dim lr As Long 'research doc sheet
Dim lastrow As Long 'IC Charge sheet
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

'1. Copy and paste

Workbooks("2020.xlsm").Activate
Sheets("owssvr").Select
Range("K2:K" & lr).Copy
Workbooks("file.xls").Activate
Sheets("Sheet1").Select
Range("A14").pastespecial Paste:=xlPasteValues

Workbooks("2020.xlsm").Activate
Sheets("owssvr").Select
Range("H2:H" & lr).Copy
Workbooks("file.xls").Activate
Sheets("Sheet1").Select
Range("C14").pastespecial Paste:=xlPasteValues

Workbooks("2020.xlsm").Activate
Sheets("owssvr").Select
Range("U2:U" & lr).Copy
Workbooks("file.xls").Activate
Sheets("Sheet1").Select
Range("L14").pastespecial Paste:=xlPasteValuesAndNumberFormats

Workbooks("2020.xlsm").Activate
Sheets("owssvr").Select
Range("AB2:AB" & lr).Copy
Workbooks("file.xls").Activate
Sheets("Sheet1").Select
Range("J14").pastespecial Paste:=xlPasteValues

Workbooks("2020.xlsm").Activate
Sheets("owssvr").Select
Range("AC2:AC" & lr).Copy
Workbooks("file.xls").Activate
Sheets("Sheet1").Select
Range("K14").pastespecial Paste:=xlPasteValues
    
    End Sub

第3节显然是错误的，我不知道如何修改它，所以我只是放弃了我试图实现的目标。任何帮助都将不胜感激。多谢各位

---

编辑：输入正确的代码，解决方案已验证

请尝试

wsResearchtracker.Range（“K2:K”和lCopyLastRow）。复制\wsICcharge.Range（“A14”）

等等。。。如果

lCopyLastRow

是1000，并且

lDestLastRow=1500

（无论如何，这是不必要的），那么这种连接将把范围“K21000”复制到单元“A141500”。我认为目标范围应该是

wsICcharge.range（“A”&lDestLastRow）

@FaneDuru@Foxfire烧伤和烧伤：是的，如果他想在第一个空单元格复制。我不太明白他想做什么……你想把这篇专栏复制到哪里？在“A14”中还是在A:A列的第一个空行中？然后，所谓的静态表中的所有列都有相同的行数？根据图，最后一行是第13行，因为标题在第13行。OP做了一个偏移量，所以实际上他想要最后一行之后的第一个空白行。因此

lDestLastRow=14

。我认为OP只是对输入正确的句子感到困惑，但是代码非常接近他/她所需要的。