Enlazar dos macros

Como puedo enlazar estas dos macros ya que lo intente y no pude
Sub saldos()
'
' Macro2 Macro
' Macro grabada el 12/05/2010 por admin
'
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(39, 1), Array(54, 1), Array(69, 1), _
        Array(84, 1), Array(99, 1), Array(114, 1), Array(115, 1)), TrailingMinusNumbers:= _
        True
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Columns.AutoFit
    Selection.End(xlUp).Select
End Sub
Sub borrar_colA()
'
' borrar_colA Macro
'
    Dim i As Integer
    i = 1
    While (Range("A" + CStr(i)).Value <> "")
        Range("A" + CStr(i)).Select
        If Not (WorksheetFunction.IsNumber(Range("A" + CStr(i)).Value)) Then
            Range("A" + CStr(i)).Delete
        End If
        i = i + 1
    Wend
'
   End Sub