Is there a way to simplify this code? I have 30 employees and doing this for each one, while is just a lot of copy and pasting, seems time consuming. Is there any way to make it shorter?
Dim NextRow As Integer
NextRow = Sheets("Allie").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Allie").Range("A" & NextRow) = Format(Now - 1, "MM-DD-YYYY")
Sheets("Allie").Range("B" & NextRow) = WorksheetFunction.CountIf(Sheets("Adjustments").Range("G:G"), "E457038")
Sheets("Allie").Range("C" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_A1")
Sheets("Allie").Range("D" & NextRow) = Sheets("Allie").Range("C" & NextRow) * 8
Sheets("Allie").Range("E" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B1")
Sheets("Allie").Range("F" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B2")
Sheets("Allie").Range("G" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B3")
Sheets("Allie").Range("H" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B4")
Sheets("Allie").Range("J" & NextRow) = Sheets("Allie").Range("I" & NextRow) * 7
Sheets("Allie").Range("K" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_E")
Sheets("Allie").Range("L" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_C")
Sheets("Allie").Range("N" & NextRow) = Sheets("Allie").Range("M" & NextRow) * 3
Sheets("Allie").Range("O" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_H")
Sheets("Allie").Range("P" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_R")
Sheets("Allie").Range("Q" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_K1")
Sheets("Allie").Range("R" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_K2")
Sheets("Allie").Range("T" & NextRow) = Sheets("Allie").Range("S" & NextRow) * 4
Sheets("Allie").Range("U" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_X")
Sheets("Allie").Range("V" & NextRow) = Sheets("Allie").Range("U" & NextRow) * 3
Thank you to anyone that can help.
Dim NextRow As Integer
NextRow = Sheets("Allie").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Allie").Range("A" & NextRow) = Format(Now - 1, "MM-DD-YYYY")
Sheets("Allie").Range("B" & NextRow) = WorksheetFunction.CountIf(Sheets("Adjustments").Range("G:G"), "E457038")
Sheets("Allie").Range("C" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_A1")
Sheets("Allie").Range("D" & NextRow) = Sheets("Allie").Range("C" & NextRow) * 8
Sheets("Allie").Range("E" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B1")
Sheets("Allie").Range("F" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B2")
Sheets("Allie").Range("G" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B3")
Sheets("Allie").Range("H" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_B4")
Sheets("Allie").Range("J" & NextRow) = Sheets("Allie").Range("I" & NextRow) * 7
Sheets("Allie").Range("K" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_E")
Sheets("Allie").Range("L" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_C")
Sheets("Allie").Range("N" & NextRow) = Sheets("Allie").Range("M" & NextRow) * 3
Sheets("Allie").Range("O" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_H")
Sheets("Allie").Range("P" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_R")
Sheets("Allie").Range("Q" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_K1")
Sheets("Allie").Range("R" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_K2")
Sheets("Allie").Range("T" & NextRow) = Sheets("Allie").Range("S" & NextRow) * 4
Sheets("Allie").Range("U" & NextRow) = WorksheetFunction.CountIfs(Sheets("Adjustments").Range("G:G"), "E457038", Sheets("Adjustments").Range("F:F"), "DB_X")
Sheets("Allie").Range("V" & NextRow) = Sheets("Allie").Range("U" & NextRow) * 3
Thank you to anyone that can help.