I'm using the code below to select all visible sheets, but it's not working on the last sheet.
Any suggestions would be appreciated. Thanks!
Sub Error_Tabulation()
Application.ScreenUpdating = False

On Error Resume Next

Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
If wsSheet.Visible Then
   

On Error Resume Next
Cells.Find("E, D").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("D E").Offset(0, 1).PasteSpecial xlPasteValues

On Error Resume Next
Cells.Find("G, A").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("A G").Offset(0, 1).PasteSpecial xlPasteValues

On Error Resume Next
Cells.Find("G, K").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("K G").Offset(0, 1).PasteSpecial xlPasteValues

On Error Resume Next
Cells.Find("M, J").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("J M").Offset(0, 1).PasteSpecial xlPasteValues

'On Error GoTo 0
Range("A3").Select
Application.CutCopyMode = False
 wsSheet.Select
End If
Next wsSheet
Application.ScreenUpdating = True
End Sub