Dividir rango seleccionado!

Dam hola que tal!! Necesito tu ayuda, un experto me ayudo en esta macro pero no logro adaptarla a un rango fijo es decir de P5 a P178, me podrías ayudar. Anexo macro...Lo que hace es dividir el valor de la celda entre 1000.

Sub cambio()
range("p65000").End(xlUp).Offset(1, 0).Value = "end"
range("p1").select
Do While ActiveCell.Value <> "end"
ActiveCell.Value = Round(ActiveCell.Value / 1000, 0)
ActiveCell.NumberFormat = "#,##0"
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Sub