Cut & Paste Loop

[Allan]

I am just learning about Excel VBA on a project.
I have a very long spreadsheet of data to format from one column.

How would I automate the following?

"Search for a phone number, cut whole cell, paste it up two rows and over 3
columns.
Find next phone number... repeat..."


I will also be using this to move addresses...

"Search for address containing this string, cut whole Cell, paste up 1 row,
and over 6.
Find next Address."

Thanks in advance

============================
Allan

 

[Don Guillett]

this should give you the idea
Sub moveover()' moves over 3 columns & up 2 rows
For Each c In Selection
c.Cut c.Offset(-2, 3)
Next
End Sub