Enter the names of your consultants into Col A of Ranges sheet, and name range "Consultants"
Following macro then adds the list automatically to next free row of table, assigning Zero hours to them. You then "overwrite" any that have worked.
Option Explicit
Sub AllIn()
Dim Consultants As Range, c As Range
Dim a As Long, f As Long, n As Long
With Sheet2
f = .Cells(.Rows.Count, "A").End(xlUp).Row
Set Consultants = .Range(.Cells(2, 1), .Cells(f, 1))
End With
With Sheet1
a = .Cells(.Rows.Count, "C").End(xlUp).Row + 1
If a = 3 Then a = 2
Consultants.Copy Range("C" & a)
n = .Cells(.Rows.Count, "C").End(xlUp).Row
For Each c In Range("D" & a, "D" & n)
c = 0
Next
End With
End Sub
Hope this helps
Ochimus
Bookmarks