title: Two macros same worksheet
body: <p>I’m a total newbie at this. I’ve got a worksheet with a list of jobs. One of the columns relate to the location eg, London, Manchester. When London is selected, I want that row copied to the London worksheet, and so on.</p>
  <p>Also, I’ve got a column to show when the job is completed. So when I select completed, I want that row cut and pasted into the completed worksheet.</p>
  <p>Now, after searching, I’ve found the code for both these actions and individually they work. But I’m trying to get them to work together. I’ve tried multiple things from searches I’ve done on here and google but nothing is working.</p>
  <p>These are the codes I’ve got that work individually:</p>
  <pre><code>Private Sub         Worksheet_Change(ByVal Target As  Range)
  Dim wsUse As Worksheet
  Dim wsDc As Worksheet
  Dim strdc As String
  Application.ScreenUpdating =  False
  Application.Calculation = xlCalculationManual
  If Target.Cells.Count &gt; 1 Then     Exit Sub
  
  If Target.Column &lt;&gt; 9 Then Exit Sub  ' change 2 to the correct column number
  
  Set wsUse =    ThisWorkbook.Sheets(&quot;Workload   Overview&quot;)
  Set wsDc =    ThisWorkbook.Sheets(&quot;Completed&quot;)
  
  
  With wsUse
  strdc = Target.Value
  
  If strdc = &quot;Completed&quot; Then
      n = .Rows.Count
      Target.EntireRow.Copy
      wsDc.Range(&quot;A&quot; &amp; n).End(xlUp).Offset(1, 0).PasteSpecial xlValues
      wsDc.Range(&quot;A&quot; &amp; n).End(xlUp).EntireRow.PasteSpecial xlPasteFormats
      Application.CutCopyMode =  False
      Target.EntireRow.Delete
  End If
  
  End With
  
  Application.ScreenUpdating = True
  Application.Calculation =   xlCalculationAutomatic
  End Sub
  
  
  
  Private Sub     Worksheet_Change(ByVal Target As Range)
  Dim wsUse As Worksheet
  Dim wsDc As Worksheet
  Dim strdc As String
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  If Target.Cells.Count &gt; 1 Then         Exit Sub
  
  If Target.Column &lt;&gt; 6 Then   Exit Sub  ' change 2 to the    correct column number
  
  Set wsUse =     ThisWorkbook.Sheets(&quot;Workload Overview&quot;)
  Set wsDc =     ThisWorkbook.Sheets(&quot;London&quot;)
  
  
  With wsUse
  strdc = Target.Value
  
  If strdc = &quot;London&quot; Then
      n = .Rows.Count
      Target.EntireRow.Copy
      wsDc.Range(&quot;A&quot; &amp; n).End(xlUp).Offset(1, 0).PasteSpecial xlValues
      wsDc.Range(&quot;A&quot; &amp; n).End(xlUp).EntireRow.PasteSpecial xlPasteFormats
      Application.CutCopyMode = False
      Target.EntireRow.Copy
  End If
  
  End With
  
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  End Sub
  </code></pre>