Move rows to another sheet based on cell value- VBA

[sassyGuava]

I'm very new to VBA and I'm trying to automate some processes via Excel.
I have a workbook with 3 sheets:
Ship
In Transit
Delivered
I would like to be able to move the rows from Ship to In Transit or Delivered based on a value in the "W" column. If the value is In Transit to move it to the next empty row in the In Transit worksheet. If the value is Delivered to move it to the next empty row in the Delivered worksheet.
I would appreciate any help or any pointers in the right direction!!

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab Named Ship
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

This script copies the row to the other sheet.
You said Move. Not sure if that means copy to other sheet and then delete from sheet named Ship or not. If you want it deleted also from sheet Ship you will have to let me know.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  7/25/2018  8:20:48 PM  EDT
If Not Intersect(Target, Range("W:W")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Dim r As Long
Dim Lastrow As Long
Dim ans As String
ans = Target.Value
r = Target.Row
Lastrow = Sheets(ans).Cells(Rows.Count, "W").End(xlUp).Row + 1
Rows(r).Copy Sheets(ans).Rows(Lastrow)
End If
End Sub

 

[My Aswer Is This]

If you do want the row deleted use this script:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  7/25/2018  8:36:41 PM  EDT
If Not Intersect(Target, Range("W:W")) Is Nothing Then
Application.EnableEvents = False
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Dim r As Long
Dim Lastrow As Long
Dim ans As String
ans = Target.Value
r = Target.Row
Lastrow = Sheets(ans).Cells(Rows.Count, "W").End(xlUp).Row + 1
Rows(r).Copy Sheets(ans).Rows(Lastrow)
Rows(r).Delete
End If
Application.EnableEvents = True
End Sub