The macro below is designed to copy data from a master tab and paste
to one of three resultant tabs. Unfortunately, I have made a some
error with my paste command. It pastes ONLY cell (1,AC) instead of
pasting cells 1 THROUGH 29 in the active row.

Any advice would be great! Thanks to Steve (Scoops) for the previous
assistance!

Sub UPDATE_STATUS()
'
' UPDATE_STATUS Macro

' Purpose of this section is to delete old data from resultant
worksheets

Sheets("Personal").Select
Rows("2:65535").Select
Selection.Delete Shift:=xlUp

Sheets("Corporate").Select
Rows("2:65535").Select
Selection.Delete Shift:=xlUp

Sheets("Disconnect").Select
Rows("2:65535").Select
Selection.Delete Shift:=xlUp

' Purpose of this section is copying of data to appropriate resultant
worksheets

Sheets("Master").Select

For Each cell In Range("F:F")
Select Case cell
Case "P"

Cells(1, 29).Copy
Sheets("Personal").Select
Cells(Rows.Count, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Sheets("Master").Select

Case "C"
Cells(1, 29).Copy
Sheets("Corporate").Select
Cells(Rows.Count, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Sheets("Master").Select

Case "D"
Cells(1, 29).Copy
Sheets("Disconnect").Select
Cells(Rows.Count, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Sheets("Master").Select


End Select
Next

ActiveWorkbook.Save