Create Lists According to Group

[Joseph]

I have an employee information user form that I'm using to enter employee information to a worksheet.

There are 5 different groups, so I want each group to have it's own list. What code could I use to (example) populate columns (H:N) with all the employees who are assigned to group (General)? I really want to avoid using the filter or copy pasting.

Here is a small example workbook.

H:N - General
O:U - Transporting
V:AB - Forklift Operator
AC:AI - Maintenance
AJ:AP - Team Lead

[HansV]

You'll have to copy anyway, e.g.

Code: Select all

Sub CopyData()
  Dim rng As Range
  Application.ScreenUpdating = False
  Set rng = Range(Range("A1"), Range("A1").End(xlDown).Offset(0, 6))
  rng.Offset(0, 7).ClearContents
  rng.AutoFilter Field:=3, Criteria1:="General"
  rng.Copy Destination:=Range("H1")
  rng.AutoFilter
  Application.ScreenUpdating = True
End Sub

[Joseph]

Works great, thanks Hans.