Paste from other sheets to below current text
 

I'm trying to copy text from other sheets (Dir) and post below current text
(Temp) if there is any. I keep getting errors. What am I doing wrong?

If DirectorBox = True Then
Application.CutCopyMode = False
Worksheets("Dir").Activate
ActiveSheet.UsedRange.Copy
Worksheets("Temp").Activate
If Range("A1") < "" Then
Range("A1").End(xlDown).Offset(1, 0).Select
Else
ActiveSheet.Cells(1, 1).Select
End If
ActiveSheet.Paste
End If

Paste from other sheets to below current text
 

Jeff,

Maybe a bit simpler

If DirectorBox = True Then
Worksheets("Dir").UsedRange.Copy
lastrow = Sheets("Temp").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Worksheets("Temp").Range("A" & lastrow + 1).PasteSpecial
End If

Mike

"Jeff S." wrote:

I'm trying to copy text from other sheets (Dir) and post below current text
(Temp) if there is any. I keep getting errors. What am I doing wrong?

If DirectorBox = True Then
Application.CutCopyMode = False
Worksheets("Dir").Activate
ActiveSheet.UsedRange.Copy
Worksheets("Temp").Activate
If Range("A1") < "" Then
Range("A1").End(xlDown).Offset(1, 0).Select
Else
ActiveSheet.Cells(1, 1).Select
End If
ActiveSheet.Paste
End If

Paste from other sheets to below current text
 

or
If DirectorBox = True Then
with sheets("temp")
lastrow = .cells(Rows.Count, "A").End(xlUp).Row+1
Worksheets("Dir").UsedRange.Copy .cells(lastrow,"a")
end with
end if

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mike H" wrote in message
...
Jeff,

Maybe a bit simpler

If DirectorBox = True Then
Worksheets("Dir").UsedRange.Copy
lastrow = Sheets("Temp").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Worksheets("Temp").Range("A" & lastrow + 1).PasteSpecial
End If

Mike

"Jeff S." wrote:

I'm trying to copy text from other sheets (Dir) and post below current
text
(Temp) if there is any. I keep getting errors. What am I doing wrong?

If DirectorBox = True Then
Application.CutCopyMode = False
Worksheets("Dir").Activate
ActiveSheet.UsedRange.Copy
Worksheets("Temp").Activate
If Range("A1") < "" Then
Range("A1").End(xlDown).Offset(1, 0).Select
Else
ActiveSheet.Cells(1, 1).Select
End If
ActiveSheet.Paste
End If