UnderBajanPaul ()
Dunkel lastRow så Long, I som Long
Application.ScreenUpdating = falskt
lastRow = ActiveSheet.UsedRange.Rows.Count
För I = lastRow till 6 kliver -1
Om inte IsNull (ror (I). Text) och IsNull (ror (I - 1). Text) och inte IsNull (ror (I - 2). Text) och _,
Inte IsNull (ror (I - 3). Text) och inte IsNull (ror (I - 4). Text) och inte IsNull (ror (I - 5). Text) därefter
Spänna (ror (I - 5), ror (I)). Borttagnings
i = I - 5
Avsluta om
Därefter
Application.ScreenUpdating = True
Avsluta suben
|