move columns

[donlincolnmre2]

Hello

I'm looking for a macro that will move 9 digit numbers from column H and I to Column G.

Below is the dummy data.

colum G H I
======== ======= ========
9519290759 N
woodland 5304061176 N
REDONDO BEACH 3103795756 N
6503590602 N
9164421516 N
9163929631 N
9162949820 N
FAIR OAKS 9169888790 N
5302691239 N
LOS ANGELES 3106492634 N
SACRAMENTO 9163490333 N
9164184251 N
7602897799 N
9163769197 N
9164554192 N
4154531610 N
9167228248 N
9164081171 N
9163666199 N
ca alameda 5107420733
ca alameda 5103861997



The data can be seen here in the formatted format.


https://spreadsheets.google.com/spr...HlIQ2w4ZE0zT3Z0a1g2RDR0cjNiSVE&hl=en_US#gid=0


any help would be greaty appreciated.

Thanks.

 

[AlphaFrog]

Sub Macro1()
    
    Dim cell As Range, Lastrow As Long
    
    Lastrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    For Each cell In Range("H2:I" & Lastrow).SpecialCells(xlCellTypeConstants, xlNumbers)
        Range("G" & cell.Row).Value = cell.Value
    Next cell
    
End Sub

 

[donlincolnmre2]

That worked great.

Thanks a lot for your help!