Sub complete()
fin = [A1].CurrentRegion.Rows.Count
Range("A4:A" & fin) = "OV10"
Range("B4:B" & fin) = "FR"
Range("F4:F" & fin) = "PRP"
Range("J4:J" & fin) = "04"
Range("N4:N" & fin) = "062"
Range("O4:O" & fin) = "APA"
Range("P4:P" & fin) = "01"
End Sub