I have the following code that moves a row to the next blank row on a different worksheet based on the active cell that works great.
Sub Shipped()
'
' Shipped Macro
' Move selected data to Opened Worksheet
Dim rngsource As String
Dim Rngtarget As Range
Dim trow As Integer
Dim Srow As Integer...