Dim cBlanks as Integer cBlanks = WorksheetFunction.CountBlank(Range("A19:A32")) If cBlanks = 14 then Range("A19:E32").ClearContents
Dim x As Integer For x = 31 To 19 Step -1 If Sheet2.Range("A" & x).Value = vbNullString Then Sheet2.Range("A" & x).EntireRow.Delete Next x
Sub RunMe() Sheets("Sheet2").Rows("83:96").Delete Sheets("Sheet1").Rows("18:31").Copy Sheets("Sheet2").Rows("83") Dim x As Integer For x = 95 To 84 Step -1 If Sheets("Sheet2").Range("A" & x).Value = vbNullString Then Sheets("Sheet2").Range("A" & x).EntireRow.Delete Next x End Sub
Sub RunMe() Sheets("Sheet2").Rows("83:96").Delete Sheets("Sheet1").Rows("18:31").Copy Sheets("Sheet2").Rows("83") Dim x As Integer For x = 95 To 84 Step -1 If Sheets("Sheet2").Range("A" & x).Value = vbNullString Then Sheets("Sheet2").Range("A" & x).EntireRow.Delete Next x End Sub
Sub RunMe() Dim lRow As Integer lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet1").Range("A18:E31").Copy Sheets("Sheet2").Range("A" & lRow + 2) Dim x As Integer For x = lRow + 14 To lRow + 2 Step -1 If Sheets("Sheet2").Range("A" & x).Value = vbNullString Then Sheets("Sheet2").Range("A" & x).EntireRow.Delete Next x End Sub
DON'T MISS