値に基づいてセルの範囲をコピーして別のシートに挿入する

Question

VBAを初めて使用していて、範囲関数とオフセット関数の使い方を完全に理解していません。

ここに私が達成しようとしているものがあります。私は列 "A"から行 "4"で始まる "H"で製品と価格設定情報を持つワークシート "Sheet1"を持っています。列 "D"は入力された数量です。私はどの列に列 "D"の番号があるようにマクロを書くつもりです "B49"で始まる "Sheet4"にその行のセル "A"から "D"を挿入します。上書きしたくない "B49"の前後に情報がある行があります。

Sub Copy_And_Paste() 
' 
' Copy_And_Paste Macro 
' 
    Application.ScreenUpdating = False 

    LastRow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row 

    For i = 4 To LastRow 

    If Cells(i, 4) > 0 Then 
    Range(Cells(i, 1), Cells(i, 4)).Select 
    Selection.Copy 

    Sheets("Sheet4").Select 
    Range("B49").Select 

    ActiveSheet.Paste 

    End If 

    Next i 
    Application.ScreenUpdating = True 
End Sub 

今それが唯一のコラム「D」の数との最初の行を貼り付けます。ここでは

は、私はセルをコピーしなければならないコードがあります。

Answer 1

私はそれが私がLastRow文を取り出し、「B49」で始まる

For i =10000 To 4 Step -1 

Answer 2

これは未テストです：

Sub Copy_And_Paste() 
    Application.ScreenUpdating = False 
    With Worksheets("Sheet1") 
     LastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
     For i = 4 To LastRow 
      If .Cells(i, 4) > 0 Then 
       Sheets("Sheet4").Rows(49).Insert 
       .Range(.Cells(i, 1), .Cells(i, 4)).Copy Sheets("Sheet4").Range("B49") 
      End If 
     Next i 
    End With 
    Application.ScreenUpdating = True 
End Sub