マクロ初心者ですが質問させてください。
Sheet1のB1-B16000の文字列を同じファイル内の新規シートに
699列毎コピーしたいです。

ググって下記まで作ったのですがエラーが出ます
いかんせん知識が無いため、何が間違っているのか分からないです。
どこを修正すればいいのかご教示いただけますでしょうか。


Sub マクロの記録改()
　 Dim n As Long '変数の定義
　 For n = 1 To 15206 Step 699
　 　 Sheets("Sheet1").Select '元シートの「Sheet1]を選択
　 　 Application.Goto Reference:="R" & n & ":R" & n + 699
　 　 Selection.Copy 'コピー
　 　 Sheets.Add 'シートを追加
　 　 ActiveSheet.Paste '貼り付け
　 Next n
　 Application.CutCopyMode = False 'コピーの解除
End Sub