Private Sub Worksheet_Change(ByVal target As Range)
Dim rng1 As Range
Set rng1 = Intersect(Range("BR:BR, BV:BV, BZ:BZ, CD:CD, CH:CH, CL:CL, CP:CP, CT:CT, CX:CX, DA:DA, DF:DF, DJ:DJ, DN:DN, DR:DR, DV:DV, DZ:DZ, ED:ED, EH:EH, EL:EL, EP:EP, ET:ET, EX:EX, FB:FB, FF:FF, FJ:FJ, FN:FN, FR:FR, FV:FV, FZ:FZ, GD:GD, GH:GH, GL:GL, GP:GP, GT:GT, GX:GX, HB:HB, HF:HF"), target)
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
rng1.Offset(0, 2).Value = Environ("username")
rng1.Offset(0, 3).Value = Now()
Application.EnableEvents = True
End Sub
The above values in rng1 is the max amount of cell values I can have in the macro before I get a run time 1004 error. I still have the below values to add, is there anyway of creating a rng2 with these values to run within the change sub as I am unable to combine these values within a working macro?

HF:HF, HJ:HJ, HN:HN, HR:HR, HV:HV, HZ:HZ, ID:ID