I can't seem to get this code to work. Any ideas? This is my first time using a FOR statement in VBA.
Sub Sort()
Dim x As Long
Dim ws As Worksheet
For x = 1 To 8
Set ws = ThisWorkbook.Sheets("P" & x & " Figure 2-2")
Lr = ws.Range("A" & Rows.Count).End(xlUp).Row
If Lr > 3 Then...