Help creating a macro that will remove space between blank rows. Keep getting "Cannot use that command on overlapping selections" error

[Coyotex3]

I'm trying to create a micro that will let me delete blank rows between data in order to be able to sort and filter.

View attachment 53209

I would like for the macro to delete a row whenever it notices a blank column on the row. After that I would like for the worksheet to be sorted by column D then column A then column G.

 

[jolivanes]

Do you mean Rows 12, 13, 19, 20, 21 and 22 in your picture?

 

[Coyotex3]

Do you mean Rows 12, 13, 19, 20, 21 and 22 in your picture?

10, 11, and 18 as well.

 

[Fluff]

How about

Sub Coyotex()
  Range("B1", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

 

[Coyotex3]

How about

Sub Coyotex()
  Range("B1", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

This sub is absolutely amazing. I can't believe Excel is so powerful and I imagine I'm barely scratching the surface. This code works but I can't get the sort portion right. Here is what I have


Sub Macro10()
'
' Macro10 Macro
'

'
ActiveWorkbook.Worksheets("Sheet1 (17)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1 (17)").Sort.SortFields.Add2 Key:=ActiveCell _
.Offset(0, 3).Range("A1:A147"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1 (17)").Sort.SortFields.Add2 Key:=ActiveCell _
.Range("A1:A147"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1 (17)").Sort
.SetRange ActiveCell.Offset(-1, 0).Range("A1:G148")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

I'm trying to make my next command on the chain to sort by column D and then Column A. My code is not working though.

 

[Fluff]

Try

  Range("A1").CurrentRegion.Sort Range("D1"), xlAscending, Range("A1"), , xlAscending, Header:=xlYes

 

[Coyotex3]

Try

  Range("A1").CurrentRegion.Sort Range("D1"), xlAscending, Range("A1"), , xlAscending, Header:=xlYes

This absolutely works. Thank you once again.

 

[Fluff]

Glad we could help & thanks for the feedback.