EXCEL SHEET ÜRES SORAINAK KITÖRLÉSE - VBA makró

Ha automatikusan hozol létre Excel Sheeteket, nem tuhatod, hogy hány sorra is lesz pontosan szükség => jobb, ha minél többet adsz hozzá az elején. Ellenben, a sok üres sor gondot okozhat processzáláskor, így ez a makró kiörli az "üresnek tekintetteket". Hogy ki melyik sort tekinti üresnek, a feltétel határozza meg.

Sub RemoveEmptyRowsFromASpecificSheet()
Dim rng As String
rng = ""
totalrows = Sheets("SpecificSheet").UsedRange.Rows.Count
For Row = 1 To totalrows Step 1
If Sheets("SpecificSheet").UsedRange.Cells(Row, 1).Value = "" Then
rng = "A" + CStr(Row) + ":P5000"
Exit For
End If
Next Row
Sheets("SpecificSheet").Range(rng).EntireRow.Delete
End Sub