End with without with

[Melrose0507]

I am having issues with how to end my macro. I want to cut the cell in column H if it equals "TXT" and then insert it 5 rows to the right. Below is my macro. The error I receive is "End With without With". Some one please help guide me!!!

Private Sub TXT()
Dim LR As Long, i As Long
LR = Range("H" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
With Range("H" & i)
If Cells(i, "H").Value = "TXT" Then
Selection.Cut
ActiveCells.Offset(0, 5).Insert
End With
Next i
End Sub

 

[Andrew Poulsom]

You are missing an End If (despite what VBA says).

 

[Jonmo1]

This error is usually misleading...
You're actually missing an End If

Indentation of code should help uncover these types of errors.
Always indent after : IF / With / For / Do statements (among others)..

You have this

Private Sub TXT()
Dim LR As Long, i As Long
LR = Range("H" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    With Range("H" & i)
        If Cells(i, "H").Value = "TXT" Then
            Selection.Cut
            ActiveCells.Offset(0, 5).Insert
    End With
Next i
End Sub

Should be like this

Private Sub TXT()
Dim LR As Long, i As Long
LR = Range("H" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    With Range("H" & i)
        If Cells(i, "H").Value = "TXT" Then
            Selection.Cut
            ActiveCells.Offset(0, 5).Insert
        End If
    End With
Next i
End Sub

 

[Ruddles]

You confused VBA by starting an If..Then block but not closing it with an End If.

Indenting and 'outdenting' your code when you start and end code blocks invariably shows up this type of error.

 

[Melrose0507]

Thank you. I kept doing one or the other but not both. Appreciate it.