I have added a new drop down in column J to do the same thing as before. Copy row to corrilating sheet.
How do I code this in as well? Please see previous comment for more details. Thank you!
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your Bids sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in column I.
CodeDisplay MorePrivate Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Column <> 9 Then Exit Sub Dim lRow As Long Application.ScreenUpdating = False Select Case Target.Value Case "PACKAGE" With Sheets("Package") lRow = .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("B" & Target.Row).Resize(, 7).Copy .Range("B" & lRow + 1) End With Case "CO" With Sheets("Change Order") lRow = .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("B" & Target.Row).Resize(, 7).Copy .Range("B" & lRow + 1) End With End Select Application.ScreenUpdating = True End Sub