get data contains big and small letter and number

Sub test()
    Dim rg As Range
    Set rg = ThisWorkbook.Worksheets("Sheet1").Cells(3, 1).CurrentRegion.Columns(1)
    Set rg = rg.Offset(1).Resize(rg.Rows.Count - 1)
    
    Dim i As Long
    For i = 1 To rg.Rows.Count
        If rg.Cells(i, 1).Value Like "[A-Z][a-z][!A-z]*" Then
            rg.Cells(i, 2) = rg.Cells(i, 1)
        End If
    Next i
End Sub