Any Way to Accomplish Task Faster?

[NBAJAM97]

I would like to have the data moved to the position as shown in the video. I was wondering if there was a faster way to get it moved without doing the copy and pasting shown in the video.

Any answers will be greatly appreciated! Thanks!

[video]https://www.dropbox.com/s/i8ykpkvjtfhyhzk/Fantasy%20Football%20Excel.mov?dl=0[/video]

 

[hateme28]

give this a shot.. not tested. its an altered code I had lying around.

Sub fantasy()
 lstr = Cells(Rows.Count, 1).End(xlUp).Row
 For Each cell In Range("A1:A" & lstr)
    If cell.Value Like "#*" Then
        lstc = Cells(cell.Row, Columns.Count).End(xlToLeft).Column
        Range(Cells(cell.Row, 1), Cells(cell.Row, lstc)).Copy
        cell.Offset(-1, 1).PasteSpecial
        Range(Cells(cell.Row, 1), Cells(cell.Row, lstc)).ClearContents
    End If
 Next
End Sub