Quote Originally Posted by JEC. View Post
To save some space

.Cells(k, 1).Resize(, 9) = Array(Application.UserName, Environ("computername"), "changed cell", Target(i, j).Address, Cells(Target(i, j).Row, "C"), Cells(Target(i, j).Row, "B"), Target(i, j), arr(i, j), Now())
This is really helpful thank you so much