Looking to add to existing VBA code to type a word in a cell in a different sheet

Hello,

I currently have the below code in sheet 1 which transfers certain info from sheet 1 to sheet 2 & sheet 3 on a trigger of the word Block. I would also like on this trigger if the words "Sent Up" could be put in column J. this is not being copied from anywhere in sheet 1, just being input in sheet 2 and/or sheet 3.

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AB:AC")) Is Nothing Then
  With Target
    If UCase(.Value) = "BLOCK" Then
      If .Column = 28 Then
        CopyTo = "Sheet 2"
        rw = Sheets(CopyTo).Range("E" & Rows.Count).End(xlUp).Row + 1
        Range("B" & .Row).Copy Destination:=Sheets(CopyTo).Range("E" & rw)
        Range("AB" & .Row).Copy Destination:=Sheets(CopyTo).Range("f" & rw)
Put "Sent Up" in Column J
    ElseIf .Column = 29 Then
            CopyTo = "Sheet 3"
        rw = Sheets(CopyTo).Range("D" & Rows.Count).End(xlUp).Row + 1
        Range("B" & .Row & ":C" & .Row).Copy Destination:=Sheets(CopyTo).Range("D" & rw)
        Range("AC" & .Row).Copy Destination:=Sheets(CopyTo).Range("F" & rw)
Put "Sent Up" in Column J
      End If
    End If
  End With

Thanks in advance

Hi Stnkynts

That worked perfect.Thanks a mil