Hello,

Is there a way to simplify this vba code to work on all the 'x' in Cell L?

Sub o4MatchHorses()
'
' o4MatchHorses Macro
' Match horses by cutting and pasting.
'
' Keyboard Shortcut: Ctrl+Shift+D
'
    ActiveCell.Offset(0, 11).Columns("A:A").EntireColumn.Select
    Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
    ActiveCell.Offset(0, -7).Range("A1").Select
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 236
    ActiveWindow.LargeScroll ToRight:=1
    ActiveCell.Range("A1:K254").Select
    Selection.Cut
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-3, -4).Range("A1").Select
End Sub
Attached is my sample excel sheet to work it on. Basically I want what the above coding does to one cell to go through, find all the x's in Cell L and cut and paste Cells E-O and move them down to the matching cell D.

CheerZ!
Wyldjokre69

Sample11062014.xlsb