Jeanie, it seems to work for me, I've slightly modified the code but let me
know if it works.

Sub LoginLogout()
'
'
Dim n As Integer, i As Integer
Dim rng As Range
Application.ScreenUpdating = False
Sheets("Agent Login-Logout").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
Sheets("Agent Login-Logout").Activate
If Cells(i, "A").Value = "Miller, Chris" Then
Range("A" & i & ":L" & i).Copy
Sheets("Christopher M").Activate
If Range("A4") = "" Then
Set rng = Worksheets("Christopher M").Range("A4")
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
Sheets("Christopher M").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
Set rng = Worksheets("Christopher M").Range("A" & n)
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues
Cells(1, 1).Select
End If
End If
Next i
Application.CutCopyMode = False
Range("a1").Select
Application.ScreenUpdating = True
End Sub

Regards
Peter

"jeannie v" wrote:

Hi:

This Macro is almost working, but there is a slight glitsch......When the
person's data from Worksheet 2 to Worksheet 1 start paste in Range A4, only
the first line of data pastes to A4...the rest of the person's data pastes
down below in lines 42 down.....Any help would be greatly
appreciated..........

Sub LoginLogout()
'
'
Dim n As Integer, i As Integer
Dim rng As Range

Sheets("Agent Login-Logout").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
Sheets("Agent Login-Logout").Activate
If Cells(i, "A").Value = "Miller, Chris" Then
Range("A" & i & ":L" & i).Copy
Sheets("Christopher M").Activate
If Range("A4") = "" Then
Set rng = Worksheets("Christopher M").Range("A4")
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Else
Sheets("Christopher M").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
Set rng = Worksheets("Christopher M").Range("A" & n)
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
End If
Next i

End Sub
--
jeannie v