What goes between 2 macros so one runs right after the first?

Sub test()
Dim LR&, r&
LR = Range("A" & Rows.Count).End(xlUp).Row
For r = 8 To LR: Cells(r, 1) = "." & Cells(r, 1).Value & ".": Next
End Sub

Sub test()
On Error Resume Next
For Each r In Range("b8:b" & Cells(Rows.Count, 2).End(xlUp).Row)
    With Columns(1)
        Set c = .Find(r.Value, , , 2)
            If Not c Is Nothing Then
                f = c.Address
                Do
                    c.Value = Replace(c.Value, r.Value, r.Offset(, 1).Value)
                Set c = .FindNext(c)
                Loop Until f = c.Address
            End If
    End With
Next
End Sub