Cut A Row Paste It On First Empty Row In Another Sheet Based on Condition DropDown

Hi Bookstr

That's happening here

Sheets("Shipping Record").Range("B" & Rows.Count).End(xlUp).Offset(1) = strSource

Where do you want

the worksheet name "Equipment"List

Assuming Column A, try this

Sheets("Shipping Record").Range("B" & Rows.Count).End(xlUp).Offset(0,-1) = strSource

If it doesn't work let me know...I'll look at the File.