VBABEGINER
Well-known Member
- Joined
- Jun 15, 2011
- Messages
- 1,284
- Office Version
- 365
- Platform
- Windows
What went wrong this code..?
Code:
For k = 2 To UsdRws 'UsdRws To 2 Step -1
If Cells(k, 1).Interior.Color = vbYellow Then
Rows(k).Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
Rows(k).Delete
End If
Next k