kermitfrog123
Board Regular
- Joined
- Dec 19, 2015
- Messages
- 50
Afternoon All,
I am currently using the below code which works perfectly. However, my requirements have changed and I now need to destination data to be sent as values only. Can anyone help me achieve this please?
I am currently using the below code which works perfectly. However, my requirements have changed and I now need to destination data to be sent as values only. Can anyone help me achieve this please?
Code:
Worksheets("All").Select
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If Range("AD" & i).Value = "NextDay" Then Rows(i).Cut Destination:=Sheets("Interlink").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i