Można tak:
Dim cmax As Long
Dim i As Long
Dim telefon As String
Dim telofony() As String
Dim ti As Integer
'numer komórki w kolumnie c do której czytasz
cmax = 3
'Zacznij pętle po kolumnie c od 1 do cmax
For i = 1 To cmax
'Podziel wpisy po kombinacji alt+enter
telefony = Split(Cells(i, 3), vbLf)
'Zacznij formatować po kolei telefony
For ti = 0 To UBound(telefony)
'Przypisz do zmiennej telefon przerabiany numer pozbawiony spacji
telefon = Replace(telefony(ti), " ", "")
'Jeżeli zaczyna się na 17 to wez maskę numeru stacjonarnego
If Left(telefon, 2) = "17" Then
telefony(ti) = Format(telefon, "## ### ## ##")
Else
telefony(ti) = Format(telefon, "### ### ###")
End If
Next
'Przypisz do komórki telefonu łącząc znakiem vbLf
Cells(i, 3) = Join(telefony, vbLf)
Next