VBA to remove characters until first letter?

[Coyotex3]

Hello guys, This one has me stumped. I'm trying to create a code that will allow me to remove all the characters up to the first letter found.

Here is what the original data looks like on Column A and the Expected Results in Column C

Book3
	A	B	C
1	1001-OO-Boom		OO-Boom
2
3	1005-AA-Bang		AA-Bang
4
5	1009 - AA-Boom Bang		AA-Boom Bang
6
7	1002 - EE-Boon		EE-Boon
8
9	0099-II-Been		II-Been
10
11	1001-OO-Boom		OO-Boom
12
13	1005-AA-Bang		AA-Bang
14
15	1009 - AA-Boom Bang		AA-Boom Bang
16
17	1002 - EE-Boon		EE-Boon
18
19	0099-II-Been		II-Been
20
21	1001-OO-Boom		OO-Boom
22
23	1005-AA-Bang		AA-Bang
24
25	1009 - AA-Boom Bang		AA-Boom Bang
26
27	1002 - EE-Boon		EE-Boon
28
29	0099-II-Been		II-Been
Sheet1

Any ideas on the best way to achieve this?

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[DanteAmor]

Another option

=IF(A1="","",TRIM(REPLACE(A1,1,FIND("-",A1),"")))

With vba:

Sub macro()
  With Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate("=IF({1},IF(" & .Offset(, -2).Address & "="""","""",TRIM(REPLACE(" & .Offset(, -2).Address & ",1,FIND(""-""," & .Offset(, -2).Address & "),""""))))")
  End With
End Sub

or

Sub macro()
  With Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate(Replace("=IF({1},IF(@="""","""",TRIM(REPLACE(@,1,FIND(""-"",@),""""))))", "@", "" & .Offset(, -2).Address & ""))
  End With
End Sub

 

[Coyotex3]

Another option

=IF(A1="","",TRIM(REPLACE(A1,1,FIND("-",A1),"")))

With vba:

Sub macro()
  With Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate("=IF({1},IF(" & .Offset(, -2).Address & "="""","""",TRIM(REPLACE(" & .Offset(, -2).Address & ",1,FIND(""-""," & .Offset(, -2).Address & "),""""))))")
  End With
End Sub

or

Sub macro()
  With Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate(Replace("=IF({1},IF(@="""","""",TRIM(REPLACE(@,1,FIND(""-"",@),""""))))", "@", "" & .Offset(, -2).Address & ""))
  End With
End Sub

Thank you! These work as well