VBA复制粘贴-停在空白处-范围问题

Question

在VBA中效果不佳，但已将此宏设置为从工作表复制（停在空白值），并在最后一组值之后粘贴到另一工作表中，效果很好。

问题是我需要将复制范围更改为此ws.Range（“ AF3：AQ”＆LastRow）.Copy

这样做时，它仅复制前3行，然后停止。我可以将范围固定为AF3：AQ59，但是它包括不理想的空白。任何帮助将不胜感激。

致谢

Sub DBMeters()
  Dim ws As Worksheet, ws1 As Worksheet
  Dim LastRow, LRow As Long
  Set ws = Sheets("DB_Sort")
  Set ws1 = Sheets("DB Input")
  LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
  LRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row

  ws.Range("A3:L" & LastRow).Copy
  ws1.Range("A" & LRow + 1).PasteSpecial xlPasteValues
End Sub