Hi there,
I have the code written, but when I run it I get "subscriptso ut of range" problem.
The error seems to be on the first worksheets statement.
any help is much appreciated.
Thanks
I have the code written, but when I run it I get "subscriptso ut of range" problem.
Code:
Option Explicit
Sub keepLast()
Dim lastrows1 As Long
Dim lastrows2 As Long
Dim b As Boolean
Dim c As Boolean
Dim r As Long
Dim k As Long
Worksheets("Last Units on 59 N").Activate
Worksheets("Last Units on 59 N").Cells(1, 8).Value = "Status"
lastrows1 = Worksheets("Last Units on 59 N").UsedRange.Rows.Count
For r = 2 To lastrows1
If Cells(r, 1) = Cells(r + 1, 1) Then
b = True
If b = True Then
Cells(r, 8).Value = "delete"
Cells(r + 1, 8).Value = "keep"
End If
End If
Next r
For r = 2 To lastrows1
If Cells(r, 8).Value = "" Then
Cells(r, 8).Value = "keep"
End If
Next r
Sheets("Last Units on 59 S").Activate
Worksheets("Last Units on 59 S").Cells(1, 8).Value = "Status"
lastrows2 = Worksheets("Last Units on 59 S").UsedRange.Rows.Count
For k = 2 To lastrows2
If Cells(k, 1) = Cells(k + 1, 1) Then
b = True
If b = True Then
Cells(k, 8).Value = "delete"
Cells(k + 1, 8).Value = "keep"
End If
End If
Next k
For k = 2 To lastrows2
If Cells(k, 8).Value = "" Then
Cells(k, 8).Value = "keep"
End If
Next k
End Subany help is much appreciated.
Thanks