So what I am trying to do is copy a row of information when an item in the 'k' column which will say 'recieved'. So what my code needs to do is copy the row of information on that row that says 'recieved' to sheet 2 and then remove it from sheet 1 and moves all the data from sheet 1 up to close the gap. Here is the code that I am using.
Sub example() For Each ce In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If Not IsEmpty(ce) Then Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 18).Value = Range(ce, ce.Offset(0, 17)).Value End If Next ce End Sub
I realize that this code moves all of my data and i only need it to move rows that go to the state that says 'recieved'and that row will vary. Thank you in advance!