New to Macros need help

[theColonel]

I just started working with Macros today. What I'm trying to do with it is filter through information of a report and format it automatically for me. Which would spare me from doing it by hand which can take awhile.

Sub Macro4()
'
' Macro4 Macro
'
'
ActiveWindow.SmallScroll Down:=78
Range("B102:K102").Select
Selection.Cut
Range("A102").Select
ActiveSheet.Paste
End Sub

This is what I have so far, I think I understand how to change the ranges accordingly to make it work. But how would I have it conditionally go through and move a row of cells over/cut and paste if column 2 had the word "Sub" in it? Do I need to learn how to loop it? Thanks in advance for any help.

 

[Joe4]

Maybe something like this?

Sub MoveSub()

    Dim myLastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in 2nd column
    myLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Loop through all cells in column B and move to column C if "Sub" is in cell
    For i = 1 To myLastRow
        If InStr(UCase(Cells(i, "B")), "SUB") > 0 Then
            Cells(i, "C") = Cells(i, "B")
            Cells(i, "B").ClearContents
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub