Automatically populate more than one tab

[wlbamc]

Hi I am using the following code to automatically populate "LTC and CHC Panel Processes" tab when I complete the first tab, I also want this to automatically populate 2 other tabs, so 3 tabs in total when I complete the first 5 columns on the first tab any help gratefully received

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

With Application
  .EnableEvents = False
  .ScreenUpdating = False
End With
Select Case Target.Column
  Case Is = 1
    Target.Copy
       Sheets("LTC and CHC Panel Processes").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
       Target.Offset(, 1).Select
       
  Case Is = 2
    Target.Copy
       Sheets("LTC and CHC Panel Processes").Range("B" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
       Target.Offset(, 1).Select
       
  Case Is = 3
    Target.Copy
       Sheets("LTC and CHC Panel Processes").Range("C" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
       Target.Offset(, 1).Select
       
  Case Is = 4
    Target.Copy
       Sheets("LTC and CHC Panel Processes").Range("D" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
       Target.Offset(, 1).Select
       
  Case Is = 5
    Target.Copy
       Sheets("LTC and CHC Panel Processes").Range("E" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
       Target.Offset(, 1).Select
  
       
Case Else
    '
       
End Select

With Application
  .EnableEvents = True
  .CutCopyMode = False
  .ScreenUpdating = True
End With
End Sub

 

[Fluff]

Are you just entering one value at a time or are you pasting data to multiple cells?

 

[wlbamc]

I am entering one person at a time, so row 2, column A = name, column B = address etc

 

[Fluff]

Try running this & then enter something on row 2

Sub Chk()
Application.EnableEvents = True
End sub

 

[wlbamc]

Ok will do when back in work tomorrow, thanks

 

[wlbamc]

Sorry for delay in replying, that works perfectly, many thanks for all your help

 

[Fluff]

You're welcome