VBA kopieren letzten Zeile Bereich und fügen Sie auf ein anderes Blatt

Question

Ich versuche, die letzte Zelle der Spalte zu finden, z. Dann kopiere den gesamten Zeilenbereich, der dieser Zelle entspricht, z. Kopieren Sie A5, B5, C5 usw. und fügen Sie sie in einem bestimmten Zeilenbereich, z. A10, B10, C10 usw. Irgendwelche Hilfe? vielen Dank!

Sub Macro3() 
    Sheets("Stream").Range("D" & Rows.Count).End(xlUp).Copy 
    Sheets("General").Range("F2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End Sub 

Answer 1

Sub Macro3() 
     Dim LastRowStream As Long, LastRowGeneral As Long, 
     LastRowStream = Sheets("Stream").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
     Rows(LastRowStream & ":" & LastRowStream).EntireRow.copy 

     LastRowGeneral = Sheets("General").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
     Sheets("General").Range("A" & LastRowGeneral).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End Sub