Another way, without using Transpose
Transpose
dt[MapIndexed[<|"col4" -> Extract[col4, #2], #|> &]]
Append[dt[Transpose], "col4" -> {1, 34, 65, 76, 8, 66}][Transpose]