Trying to improve quality and efficiency of my VBA code - excel

Question

I have 50,000 name and address strings each occupying one cell. In order to Split the cell out to different Name, Street Number, Street, City etc I am trying to split the cells to columns that match either Street Number and Or Street Name.
Cell Examples all in column E:
Row Col: E
aparts. 56 Johnston Terrace Keyham Road
90 & 92 Wolseley Road
2 Ainslie Terrace
Dyer & Cleaner 10 & 12 Mount Gold Road
48b Alexander Road
Dairy Farmer Stratham Priory Road
NewCell Result in columns;
Row. Col.F | Col.G | Col.H
aparts.| 56 | Johnston Terrace Keyham Road
'*' | 90 & 92 | Wolseley Road
'*' | 2 | Ainslie Terrace
Dyer & Cleaner | 10 & 12 | Mount Gold Road
'*' | 48b | Alexander Road
Dairy Farmer | '*' | Stratham Priory Road
At the present my Excel Sheet does not have specific column names, only A; B; C etc. I have VBA code that will separate each cell. However, the Street Number and/or Street Name will be split differently depending on the "textnumbertext" string in each cell.
I have separate VBA code to add an asterisk in front of any entry that starts with a Street Number (see Code). This then places each cell in the correct column (I can delete the asterisk later). However, I feel that this code is inefficient and perhaps could be less verbose if perhaps I were to use the Case function.
A further complication is some Street numbers will be 14A or 12B or 10c, or 12a. If I add these options to the below code then everything becomes very long winded and inefficient. Any thoughts please?
Sub ReplaceFirstNumber()
'If the first character in the string starts with a number between 1-9 THEN
'ADD a * to the string
Dim r As Range
Dim c As Range
On Error Resume Next
Set r = Range(Range("E1"), Range("E" & Rows.Count).End(xlDown))
For Each c In r
If Left(c.Value, 1) = "1" _
Or Left(c.Value, 1) = "2" _
Or Left(c.Value, 1) = "3" _
Or Left(c.Value, 1) = "4" _
Or Left(c.Value, 1) = "5" _
Or Left(c.Value, 1) = "6" _
Or Left(c.Value, 1) = "7" _
Or Left(c.Value, 1) = "8" _
Or Left(c.Value, 1) = "9" Then
c.Value = " * " & c.Value
End If
Next c
End Sub

Answer 1

The function below will hopefully help you make this task a tad easier. It strips all numeric characters from the address string, and will include any trailing single letters.
Function getnumbersfromstring(address As String) As String
For i = 1 To Len(address)
If IsNumeric(Mid(address, i, 1)) Then getnumbersfromstring = getnumbersfromstring & Mid(address, i, 1)
Next i
CharAfterNumber = Mid(address, Instr(1, address, getnumbersfromstring) + Len(getnumbersfromstring), 1)
If IsNumeric(CharAfterNumber) = False And Not CharAfterNumber = " " And Not CharAfterNumber = "" Then
getnumbersfromstring = getnumbersfromstring & CharAfterNumber
End If
End Function
This function can be called in a regular Sub like so
Sub breakupaddress()
Dim r As Range
Dim c As Range
Dim addressnr As String
On Error Resume Next
Set r = Range(Range("E1"), Range("E" & Rows.Count).End(xlDown))
For Each c In r
addressnr = getnumbersfromstring(c.Value)
MsgBox "The address number is '" & addressnr & "'.", vbInformation, "Information"
Next c
End Sub

Answer 2

I'm curious about how you will code everything, but about your question, something that might work would be:
Sub ReplaceFirstNumber()
'If the first character in the string starts with a number between 1-9 THEN
'ADD a * to the string
Dim r As Range
Dim c As Range
Set r = Range("E1:E" & Range("E" & Rows.Count).End(xlUp).Row)
For Each c In r
If IsNumeric(Left(c.Value, 1))=True Then c.Value = "*" & c.Value
Next c
End Sub
In your code you use Range(Range("E1"), Range("E" & Rows.Count).End(xlDown)). This means all cells in column E!. And that's like a million cells in Excel 2007 or higher. In my code, the range is Set r = Range("E1:E" & Range("E" & Rows.Count).End(xlUp).Row) This will select only all cells between E1 and the last non blank cell in Column E, so it will improve executing times a lot if you have only 50.000 rows of data.
Also, if you are learning VBA, I strongly encourage you to never use On Error Resume Next statement, because it hides errors, but they still occur.
Hope you can finally code this, or at least, find this answer helpful.
But anyways, you still got a lot to code.