Hi Kevin.

Set srcRng = srcSH.Range("A2:AB25") '<<====== CHANGE

was intended to be:

Set srcRng = srcSH.Range("A2:AB25").SpecialCells(xlVisible)

---
Regards,
Norman


"Norman Jones" wrote in message
...
Hi Kevin,

Try something like:

'=============
Sub Tester()
Dim WB As Workbook
Dim srcSH As Worksheet
Dim destSH As Worksheet
Dim srcRng As Range
Dim destRng As Range

Set WB = ActiveWorkbook '<<====== CHANGE
Set srcSH = WB.Sheets("Sheet1") '<<====== CHANGE
Set destSH = WB.Sheets("Sheet2") '<<====== CHANGE

Set destRng = destSH.Cells(Rows.Count, "A").End(xlUp)(2)

On Error Resume Next
Set srcRng = srcSH.Range("A2:AB25") '<<====== CHANGE
On Error GoTo 0

If Not srcRng Is Nothing Then
srcRng.Copy Destination:=destRng
End If

End Sub
'<<=============



---
Regards,
Norman