あるタブから別のタブに情報を引き出す

Question

最初のタブに保持されている元のデータから1つのタブに特定の列を移入する必要があります。私は彼らが洗練されることを望んでいる私がしようとしていることを誰かが理解できるように、素早く並べ替えられたVBAコードを実行しました。また、データが終了する行で停止するには、VBAコードが必要です。現在記録されているVBAコードは行159にプルダウンされますが、元のタブのデータは行72に停止します。情報が終了する行でVBAコードを停止していましたが、これは日々変化し、行1 （データが元の位置にあるセルを埋めると、0以外の場合でもシートは使用できなくなります。）

列Aにデータがあります。 Bだから、データがA15のセルに入っていれば、マクロからG15などの情報を引き出すことができますか？データがない。 これは一部の人にとっては基本的なように思えるかもしれませんが、初心者としてはまだVBAの周りに頭を浮かべています。

Sub Populate_Order() 
ActiveWindow.SmallScroll Down:=-15 
Range("M8").Select 
ActiveCell.FormulaR1C1 = "='Order Sheet'!R[7]C[-6]" 
Range("M8").Select 
Selection.AutoFill Destination:=Range("M8:M159"), Type:=xlFillDefault 
Range("M8:M159").Select 
ActiveWindow.SmallScroll Down:=-135 
Range("Q8").Select 
ActiveCell.FormulaR1C1 = "='Order Sheet'!R[7]C[-9]" 
Range("Q8").Select 
Selection.AutoFill Destination:=Range("Q8:Q159"), Type:=xlFillDefault 
Range("Q8:Q159").Select 
ActiveWindow.SmallScroll Down:=-132 
Range("R8").Select 
ActiveCell.FormulaR1C1 = "='Order Sheet'!R[7]C[-9]" 
Range("R8").Select 
Selection.AutoFill Destination:=Range("R8:R159"), Type:=xlFillDefault 
Range("R8:R159").Select 
ActiveWindow.SmallScroll Down:=-123 
Range("I3").Select 

Answer 1

次の空行が、これは別のセルM1からの値に、その行の列Aを設定し、次の空の行を見つける簡単な例である。この

Dim sourceSheet As Worksheet: Set sourceSheet = ThisWorkbook.Worksheets("sheet1") 
Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("sheet2") 
lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row 

destSheet.range("A" & lMaxRows + 1).Value = sourceSheet.range("M1").Value 

ような何かを試す見つけますシート