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!