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.DeleteEnd Sub