Cutting and Pasting Range Based on Text in Column to the Left

[FrenchCelt]

(Continuing off my previous thread that has been solved, this is my next step) I need to code my macro to look for 4STOP or 3STOP in Row 3 and then cut all data in the next column and paste in Row 16 of the column where the 4STOP/3STOP is located.

For example, I have a 4STOP in Column D. I need to then cut E1:E13 and paste in D16 and then move on to the next 4STOP/3STOP and repeat.

Any suggestions?

 

[JLGWhiz]

See if this will work for you.

Sub t()
Dim fn As Range, adr As String
    With ActiveSheet
        Set fn = .UsedRange.Find("3STOP", , xlValues, xlWhole)
            If Not fn Is Nothing Then
                adr = fn.Address
                Do
                    Intersect(.UsedRange.Offset(1), Columns(fn.Column + 1)).Cut .Cells(Rows.Count, fn.Column).End(xlUp)(2)
                    Set fn = .UsedRange.FindNext(fn)
                Loop While fn.Address <> adr
                Set fn = Nothing
            End If
        Set fn = .UsedRange.Find("4Stop", , xlValues, xlWhole)
            If Not fn Is Nothing Then
                adr = fn.Address
                Do
                    Intersect(.UsedRange.Offset(1), Columns(fn.Column + 1)).Cut .Cells(Rows.Count, fn.Column).End(xlUp)(2)
                    Set fn = .UsedRange.FindNext(fn)
                Loop While fn.Address <> adr
            End If
            Set fn = Nothing
    End With
End Sub

 

[FrenchCelt]

Thanks for the response! In principle this worked almost exactly as I wanted, but in the interim while waiting for a response I made some formatting changes to the sheet and now I need the data from Rows 1-14 to be cut and pasted into Row 17 of the previous column. I also need the column where the data was cut to be deleted as part of this process. Also I noticed that the data from Row 1 wasn't being included in the cut/paste.

 

[JLGWhiz]

Thanks for the response! In principle this worked almost exactly as I wanted, but in the interim while waiting for a response I made some formatting changes to the sheet and now I need the data from Rows 1-14 to be cut and pasted into Row 17 of the previous column. I also need the column where the data was cut to be deleted as part of this process. Also I noticed that the data from Row 1 wasn't being included in the cut/paste.

according to forum guidelines, changing the parameters of the original post will require you to start a new thread.
Regards, JLG

 

[FrenchCelt]

I started a new thread.