Excel Macro Problem

[useractive]

Ok, I have the following Script that looks over does a bunch of stuff and then takes out all the V's when doing it's calculation (voids). Now they tell me the script also needs to remove the any R statuses as well. Since I'm not good at programming and Ken helped me with this one (Still owe ya one) I need help throwing in the R removal.

Sub fill()
Worksheets("Cleanup&quot.Activate
Range("A3&quot.Select
Worksheets("Dirty&quot.Activate
Dim i As Integer
Dim fromwks As String
fromwks = Worksheets("Dirty&quot.Name
Dim fromcell As String
Dim r As Range
Set r = Intersect(ActiveSheet.UsedRange, Range("G2:G65536&quot)
For i = 1 To r.Count
If r.Cells(i).Value = 1 Then
If r.Cells(i).Offset(0, 1).Value = "V" Then
Else
r.Cells(i).Select
fromcell = ActiveCell.Address(False, False)
Worksheets("Cleanup&quot.Activate
ActiveCell.Formula = _
"=" & fromwks & "!" & fromcell
ActiveCell.Offset(0, 1).Select
Worksheets("Dirty&quot.Select
r.Cells(i).Offset(0, -6).Select
fromcell = ActiveCell.Address(False, False)
Worksheets("Cleanup&quot.Activate
ActiveCell.Formula = _
"=" & fromwks & "!" & fromcell
ActiveCell.Offset(0, 2).Select
Worksheets("Dirty&quot.Activate
r.Cells(i).Offset(0, -1).Select
fromcell = ActiveCell.Address(False, False)
Worksheets("Cleanup&quot.Activate
ActiveCell.Formula = _
"=" & fromwks & "!" & fromcell
ActiveCell.Offset(0, 4).Select
Worksheets("Dirty&quot.Activate
r.Cells(i).Offset(0, -3).Select
fromcell = ActiveCell.Address(False, False)
Worksheets("Cleanup&quot.Activate
ActiveCell.Formula = _
"=" & fromwks & "!" & fromcell
ActiveCell.Offset(1, -7).Select
Worksheets("Dirty&quot.Activate
End If
Else
Range("B200", "C200&quot.Select
Selection.Copy
Worksheets("Cleanup&quot.Activate
ActiveSheet.Paste
Worksheets("Dirty&quot.Activate
Application.CutCopyMode = False
Exit For
End If
Next i
Worksheets("Cleanup&quot.Activate
Range("C1&quot.Select
Selection.EntireColumn.Select
Selection.ColumnWidth = 1.67
Range("A3&quot.Select
startcell = ActiveCell.Address(False, False)
ActiveCell.End(xlDown).Select
endcell = ActiveCell.Address(False, False)
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = _
"=SUM(" & startcell & ":" & endcell & &quot"
ActiveCell.NumberFormat = "0000000000"
ActiveCell.Offset(-1, 1).Select
Dim tmp As String
tmp = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = _
tmp & "T"
ActiveCell.HorizontalAlignment = xlLeft
ActiveCell.Offset(0, -1).Select
tmp = ActiveCell.Address(False, False)
Dim tmp5 As String
ActiveCell.Offset(0, 7).Select
tmp5 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, -4).Select
Dim tmp2 As String
Dim tmp3 As String
Dim tmp4 As String
tmp2 = """"
tmp3 = Mid(tmp2, 2, 1)
tmp4 = "0000000000"
ActiveCell.Formula = _
"=TEXT(" & tmp & ", " & """0000000000""" & &quot&TEXT(" & tmp5 & "*100, " & """000000000000""" & &quot"
ActiveCell.Offset(-1, 4).Select
endcell = ActiveCell.Address
ActiveCell.End(xlUp).Select
startcell = ActiveCell.Address
ActiveCell.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell.Formula = _
"=SUM(" & startcell & ":" & endcell & &quot"
ActiveCell.NumberFormat = "#,###.##"
Sheets("Cleanup&quot.Select
ActiveWindow.ScrollRow = 1
Range("F1:F200&quot.Select
Selection.Copy
Sheets("Information&quot.Select
Dim RetVal
RetVal = Shell("C:\Windows\NOTEPAD.EXE", 1)
End Sub

 

[xlbo]

From what I can see, you should be able to change this line:
If r.Cells(i).Offset(0, 1).Value = "V" Then
to
If r.Cells(i).Offset(0, 1).Value = "V" or r.cells(i).offset(0, 1).Value = "R" Then


Rgds
Geoff
Si hoc legere scis, nimis eruditionis habes