Is there away to adjust this code so it does not have to loop twice or having no loop at all? This code works as is but just trying to make it faster.
VBA Code:
Range("C:C").Select
Selection.NumberFormat = "0"
Range("C2").Select
' Stop
Do While Not IsEmpty(ActiveCell.Offset(0, 0))
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value And ActiveCell.Offset(0, 4).Value = "SHOP IN RNTL" Then
ActiveCell.Offset(1, 6).Select
Selection.Copy
ActiveCell.Offset(-1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -6).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("C2").Select
Do While Not IsEmpty(ActiveCell.Offset(0, 0))
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value And ActiveCell.Offset(0, 4).Value = "SHOP IN SALES" Then
ActiveCell.Offset(1, 6).Select
Selection.Copy
ActiveCell.Offset(-1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, -6).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop