Hi,

I have the following code that someone on this site wrote for me and I love
it and use it all the time. My problem is that this goes down the rows
looking for the city, state and zip code , finds it, selects the row, and
move backwards to select the rows above that I need. Then they are copied,
pasted (transposed) in the next columns over. I still need it to find the
city, state and zip code but select the cell they are in and then move to the
left by one cell, copy those two cells, and now when it pastes in the
adjacent columns I no longer need it to be transposed. I hope that makes
sense and I hope someone can help me.

Dim iRow As Long

For iRow = 1 To 32999

Range("A1").Select

Range("A" & iRow).Select
If Selection Like "*,?? ?????" Then

Range("A" & iRow & ":A" & iRow - 2).Select
Range("A" & iRow & ":A" & iRow - 2).Copy
Range("B" & iRow - 1 & ":B" & iRow - 1).PasteSpecial , , , True

End If
Next

Dim iRow As Long

For iRow = 1 To 160

Range("A1").Select

If iRow = 1 Then
Selection.EntireRow.Insert
End If

Range("A" & iRow).Select
If Selection Like "*,?? ?????" Then

Range("A" & iRow & ":A" & iRow - 2).Select
Range("A" & iRow & ":A" & iRow - 2).Copy
Range("B" & iRow - 1 & ":B" & iRow - 1).PasteSpecial , , , True

End If
Next