try the following
Code:
dim longAtending as long
dim longofficer as long
'assuming there is an empty cell before "Officer"
longattending = cells(3,1).end(xldown).row - 3
'-3 because whole list starts at A3, and -2 because one blank row then Officer
longofficer = cells(longattending + 2,1).end(xldown).row -(longattending-3-2)
air coded so forgive any mistakes.. if there is no blank row before officer, then you need to alter the code a bit