Sätta samman flera makron?

Hej!
Som den nybörjare jag är när det gäller makron så har jag ingen aning om hur man sätter samman flera stycken så att de körs samtidigt. De makron jag vill sammanfoga är det jag fick i denna tråd samt nedanstående som jag hittade här.

Sub DeleteEmptyRows(DeleteRange As Range)
' Deletes all empty rows in DeleteRange
' Example: DeleteEmptyRows Selection
' Example: DeleteEmptyRows Range("A1:D100")
Dim rCount As Long, r As Long
    If DeleteRange Is Nothing Then Exit Sub
    If DeleteRange.Areas.Count > 1 Then Exit Sub
    With DeleteRange
        rCount = .Rows.Count
        For r = rCount To 1 Step -1
            If Application.CountA(.Rows(r)) = 0 Then 
                .Rows(r).EntireRow.Delete
            End If
        Next r
    End With
End Sub

Tusen tack på förhand!

Anropa det andra makrot det sista du gör i det första, lägg till raden

DeleteEmptyRows Selection

Precis innan "End Sub" i det första makrot. Detta förutsätter att det är inom markerade celler som tomma rader ska tas bort. Annars måste du definiera vilka celler det handlar om på något annat sätt, t.ex.

DeleteEmptyRows Range("A1:A1000")