Private Sub Worksheet_Calculate()

lr = Cells(Rows.Count, "W").End(xlUp).Row - 1
Application.EnableEvents = False
Range("W2").Offset(lr, 0) = Range("C8")
Application.EnableEvents = True

lr = Cells(Rows.Count, "X").End(xlUp).Row - 1
Application.EnableEvents = False
Range("X2").Offset(lr, 0) = Range("C9")
Application.EnableEvents = True

lr = Cells(Rows.Count, "Y").End(xlUp).Row - 1
Application.EnableEvents = False
Range("Y2").Offset(lr, 0) = Range("C10")
Application.EnableEvents = True

lr = Cells(Rows.Count, "Z").End(xlUp).Row - 1
Application.EnableEvents = False
Range("Z2").Offset(lr, 0) = Range("C11")
Application.EnableEvents = True

lr = Cells(Rows.Count, "AA").End(xlUp).Row - 1
Application.EnableEvents = False
Range("AA2").Offset(lr, 0) = Range("C12")
Application.EnableEvents = True

lr = Cells(Rows.Count, "AB").End(xlUp).Row - 1
Application.EnableEvents = False
Range("AB2").Offset(lr, 0) = Range("C13")
Application.EnableEvents = True

lr = Cells(Rows.Count, "AC").End(xlUp).Row - 1
Application.EnableEvents = False
Range("AC2").Offset(lr, 0) = Range("C14")
Application.EnableEvents = True

lr = Cells(Rows.Count, "AD").End(xlUp).Row - 1
Application.EnableEvents = False
Range("AD2").Offset(lr, 0) = Range("C15")
Application.EnableEvents = True

lr = Cells(Rows.Count, "AE").End(xlUp).Row - 1
Application.EnableEvents = False
Range("AE2").Offset(lr, 0) = Range("C16")
Application.EnableEvents = True

End Sub