Macro To Insert Page Breaks?

[Xndman]

Hi, I have a long string of data that I need page breaks between the Dept # as shown below. I appreciate the help.

Book3
	A	B	C	D
1	DEPT	DEPT NAME	$'s
2	1001.3311	SYS FITNESS CENTER	10
3	1001.3311	SYS FITNESS CENTER	20
4	1001.3311	SYS FITNESS CENTER	30
5	1001.4101	SYS ADMINISTRATIVE	40
6	1001.4101	SYS ADMINISTRATIVE	50
7	1001.4102	SYS CORPORATE DEV	60
8	1001.4102	SYS CORPORATE DEV	70
9	1001.4103	SYS MEDICAL ADMIN	80
10	1001.4103	SYS MEDICAL ADMIN	90
11	1001.4103	SYS MEDICAL ADMIN	100
Sheet1

 

[asma410]

Sub InsertingPageBreaks()

Dim x

For x = 3 To 10000
If Cells(x, 1).Value = "" Then
Exit For
End If

If Cells(x, 1).Value <> Cells(x - 1, 1).Value Then
Cells(x, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next

End Sub