将值数字与附加列一起复制到另一个工作表中

Question

请帮助我更正VBA代码，我只想在“ H”列中选择数字，然后将值与其他列一起粘贴到另一个工作表中（意味着不包括零/空单元格） “ B”，“ F”和“ G”（不包括其他

然后我只需要从“ I”列中选择数字，然后将值以及“ C”，“ F”和“ G”的其他列粘贴到另一个工作表中即可。

Option Explicit
Sub Test()
 With Sheets("Sheet1").Range("H4:H395")
 .AutoFilter
 .AutoFilter Field:=1, Criteria1:="<>"
 .Offset(1, 0).Copy
 End With
 With Sheets("Sheet2")
 .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 End With
 With Sheets("Sheet1").Range("h4:H395")
 .AutoFilter
 End With
End Sub