Short code- Expression wrong

[butch3]

Hi all. What is wrong with this code? It might be an expression issue. My code isn't running.

Sub Test()
Dim x As Long
'test range
For x = 134 To 140
'instead of range, should I be using .cell("F" & x).Value?
If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value
ActiveSheet.Range("F" & x, "I" & x).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub

 

[Leith Ross]

You are missing the THEN statement in your IF clause.

Sub Test()
Dim x As Long
'test range
For x = 134 To 140
'instead of range, should I be using .cell("F" & x).Value?
If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value Then
ActiveSheet.Range("F" & x, "I" & x).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub

 

[Scott Huish]

There's no need to Select.

Sub Test()
Dim x As Long
'test range
For x = 134 To 140
'instead of range, should I be using .cell("F" & x).Value?
If ActiveSheet.Range("F" & x).Value <> ActiveSheet.Range("E" & x).Value Then
ActiveSheet.Range("F" & x, "I" & x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub