复制非空单元格（循环遍历列）然后粘贴到另一个工作簿

Question

我已经搜索了如何遍历非空单元格的列，以及如何将粘贴复制到下一个空行，但我无法将这两个代码组合在一起。有人可以帮助我解决我的困境吗？ 我试图将下面的代码与以下代码结合起来，但我无法使其工作。提前谢谢。

这是我正在尝试的代码。

1. 循环遍历工作表1的A列到H列的列

   Worksheets("TransJ").Range("A" & Rows.Count).End(xlUp).Offset(1).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
   
   j = 2
   For i = 5 To 37
       If mySheet.Cells(i, 1).Value <> "" Then
           Worksheets("TransJ").Cells(j, 1).Value = mySheet.Cells(i, 1).Value
           j = j + 1
       End If
   Next I  
   

2. 将非空单元格从每个列复制到另一个工作簿的另一个工作表。

   j = 2
   For i = 5 To 37
       If mySheet.Cells(i, 2).Value <> "" Then
           Worksheets("TransJ").Cells(j, 2).Value = mySheet.Cells(i, 2).Value
           j = j + 1
       End If
   Next i