On 4 May, 15:55, Frank wrote:
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

Hi Frank

I posted this to your last thread but you've moved on!

Sub TestRange()
Dim cell As Range

For Each cell In Range("F1", Cells(Cells(Rows.Count,
"F").End(xlUp).Row, "F"))
Select Case cell
Case "F"
cell.Resize(1, 29).Copy _
Sheets("Personal").Cells(Rows.Count, 1).End(xlUp)(2)
Case "P"
'DoThat
Case "C"
'DoTheOther
End Select
Next

End Sub

Regards

Steve