Slipping and sliding....

Sub ChutesAndLadders()
Dim shtCurrent As Worksheet
Set shtCurrent = ActiveSheet
Dim rngColumnI As Range
Set rngColumnI = shtCurrent.Range("I1", "I65000")
Dim intTotalRows As Integer
intTotalRows = shtCurrent.UsedRange.Rows.Count
Dim rngRow As Range
For Each rngRow In rngColumnI
If rngRow.Row intTotalRows Then Exit For
If Not IsEmpty(rngRow.Value) Then
With rngRow
.Offset(0, -3).Value = .Offset(0, -
3).Value & .Offset(0, -2).Value
.Offset(0, -2).Value = rngRow.Value
.Value = ""
End With
End If
Next
End Sub

If I understood you right, that will do it!

-Brad
-----Original Message-----
If column I has data in it I want Excel to perform the
following.

1. Concatanate the data in the coresponding row column G
to the end of the
data in the coresponding row in column F

2. Move the data from column I to the coresponding cell
in the same row in
column G


.