セル内の数値に応じてVBA内のペーストをコピー

Question

VBAコードでsheet1の列B、E、H、K、Nを0より大きい数でチェックし、そのセルをコピーして貼り付けることは可能ですか？列A、B、Cのシート2の後の1つ

Sub Epicerie() 

For Each Cell In Sheets("Liste").Range("B:B, E:E, H:H, K:K, N:N") 

    If Cell.Value > 0 Then 
     matchRow = Cell.Row 
     Rows(matchRow & ":" & matchRow).Select 
     Selection.Copy 

     Sheets("Listepret").Select 
     ActiveSheet.Rows(matchRow).Select 
     ActiveSheet.Paste 
     Sheets("Liste").Select 
    End If 
Next 

End Sub 

Answer 1

私はあなたのようなものの後にあると思う：ここ

は、私が使用してきたが、それは全体の行を取っているし、それは不要だコンテンツの多くを与えるとして、それは私が欲しいものを正確ではありませんコードです以下のコード：

Option Explicit 

Sub Epicerie() 

Dim Cell As Range 

For Each Cell In Sheets("Liste").Range("B:B, E:E, H:H, K:K, N:N") 
    If Cell.Value > 0 Then 
     With Sheets("Listepret") 
      ' copy paste in 1 line to the next empty row at Column "A" 
      Cell.Offset(, -1).Resize(1, 3).Copy Destination:=.Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1) 
     End With 
    End If 
Next 

End Sub