Suche nach der Anzahl der nicht leeren Zellen und Einfügen von Daten kopiert kurz nach

Question

i eine Unter schreiben die Anzahl der nicht leeren Zellen zu finden:

Sub test() 

     Dim i, mynumber As Integer 

     For i = 22 To 500 
      If Cells(i, 2).Value <> 0 Then mynumber = mynumber + 1 
     Next i 

    End Sub 

Zum Beispiel, wenn ich diesen Code ausführen, ich habe mynumber = 8, manchmal habe ich mynummer21, etc, ...

Ich kopierte Daten und ich möchte sie zwei Zeilen nach der Anzahl der nicht leeren Zellen einfügen (deshalb habe ich diesen Code geschrieben).

Ich bin hier fest.

Answer 1

Um die letzte Zeile in der Spalte finden Sie diesen Code verwenden können:

With Sheets("Sheet1") 
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row 
End With 

Und dann fügen Sie einfach zwei Reihen auf den Bereich, wenn Sie es einfügen möchten.