Hi,

Im trying to swap the contents of "B554:W554" with "B555:W555"

I've search but I'm only able to find macro's that swap individual cells.

Anyone know how I can do this?

I've found this macro that swaps entire rows however I require column A to be fixed.
Dim tempRRay As Variant
Range("B554:W555").Select
With Selection
   With Range(.Areas(1), .Areas(.Areas.count)).EntireRow
      tempRRay = .Rows(1).Value
      .Rows(1).Value = .Rows(.Rows.count).Value
      .Rows(.Rows.count).Value = tempRRay
   End With
End With
Thanks in advance!