>純粋にデータだけコピー＆ペーストするにはどうするのでしょうか

データだけでしたらこれでどうでしょうか？

>Sub 入力()
>
>range("B2").select
>
>Dim コピー行, レコード数, ペースト行 As Integer
>コピー行 = Selection.Row
>レコード数 = ActiveCell.Offset(2, 0).CurrentRegion.Rows.Count
>ペースト行 = ActiveCell.Offset(2, 0).Row + レコード数
>
>Range(Selection, Selection.End(xlToRight)).Copy
>Cells(ペースト行, 2).Select

'ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

>Application.CutCopyMode = False
>
>If Not IsNumeric(Cells(ペースト行 - 1, 1)) Then
>    Cells(ペースト行, 1) = 1
>Else
>    Cells(ペースト行, 1).Value = Cells(ペースト行 - 1, 1) + 1
>End If
>
>    For i = 2 To 6
>        Cells(コピー行, i).ClearContents
>    Next i
>
>range("B2").select
>
>End Sub


-- 
Naoaki Sato
mailto:sato-naoaki@asahikeiki.co.jp