I have this macro:
What am I doing wrong? Any suggestions?
Thanks
Nicole
Rich (BB code):
Sub ExampleTesting()
Dim LR As Long, i As Long, j As Long, ct As Integer
LR = Sheets("sheet2").Range("C" & Rows.Count).End(xlUp).Row
For i = 1 To LR Step 1
j = j + 1
ct = UBound(Split(Sheets("sheet2").Range("C" & j).Text, " ")) + 1
If ct < 2 Then
Sheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = _
Sheets("sheet2").Range("A" & j: "D" & j).Value
End If
Next i
End Sub
Thanks
Nicole