Excel VBA 製作所コミュのオートフィルタで抽出したデータについて。

はじめまして☆マクロ初心者です。
マクロを作ってて壁にぶち当たってしまい途方に暮れています。
皆様に力を貸していただきたいと思いトピを立てました。

オートフィルタで抽出したデータがあります。
そのデータをマクロを使って、抽出した行だけコピーして隣のシートに貼り付けるというものにしました。ここまでは良かったのです。

本来抽出されたデータは1行だけでその1行を隣のシートに貼り付けるのですが、オートフィルタで抽出せずにマクロを実行したら抽出前の全データが隣のシートに貼り付けられてしまいます。この、「抽出せずにマクロを実行する」を防止したいのです。

そこで考えたのが、このマクロを実行する前にif〜thenを使って、
抽出した行が1行だけならコピーして隣のシートに貼り付ける。
そうじゃなかったら（1行より多かったら）「ちゃんと選択してね」というメッセージボックスを出すということ。

でも、うまくいかないんです。抽出した行が1行のときでも、2行以上のときでもメッセージボックスが出てきてしまいます。
If〜Thenの条件の使い方がおかしいのか、抽出された行を読み取ってくれないのか・・・わかりません。
「抽出した行をコピーして隣のシートに貼り付ける」というマクロも色々なネットを読みながら作ってみたので、動きはしますがその中身が間違ってるのか・・・。私にはお手上げ状態になってきてしまいました。
どなたかどうすればいいのか教えて下さい。

一応私が作ったものを貼り付けてみます。

Sub メッセージボックス出す()

'
' メッセージボックス出す Macro

'

'
Worksheets("sheet1").Activate
If Worksheets("sheet1").Range("J65536").End(xlUp).Row = 1 Then
Columns("B:G").EntireColumn.Hidden = False
Selection.EntireColumn.Hidden = False
Range("C12:K25").Select
Selection.Copy
Sheets("Sheet2").Select
Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Sheet1").Select
ActiveSheet.Range("$G$11:$K$25").AutoFilter Field:=5
ActiveSheet.Range("$G$11:$K$25").AutoFilter Field:=4
ActiveSheet.Range("$G$11:$K$25").AutoFilter Field:=3
ActiveSheet.Range("$G$11:$K$25").AutoFilter Field:=2
ActiveSheet.Range("$G$11:$K$25").AutoFilter Field:=1
ActiveCell.Columns("A:D").EntireColumn.Select
Selection.EntireColumn.Hidden = True
ActiveCell.Offset(4, 4).Range("A1").Select
Else
MsgBox "ちゃんと選択してね！"
End If
End Sub

長文で申し訳ありませんが、よろしくお願いします。

写真左　元のデータＣ〜Ｆ列は非表示状態になっています。
写真中　オートフィルタで抽出した状態。本来Ｊ列で1行に抽出されます。
写真右　隣のシート抽出したデータを貼り付けた状態。非表示になっていたＣ〜Ｆ列が表示されています。