【マクロ】Ctrl+Dとオートフィル

1行目が項目で2行目からデータを入れていく。

A列で範囲を指定しCtrl+Dでオートフィルを自分でやる
ffddマクロを実行すると下記表の様にA列の値が入っている範囲で
B～I列は2行目と同じ値を入れる。
そしてJ列には連番を入れる。
この時にはJ２セルには基準となる番号を入れておくこと。

A３の値が変わるとffddを実行するコード
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A3")) Is Nothing) Then ffdd
End Sub



Sub ffdd()
If Range("A3") = "" Then
Else
    '上の値をコピペ　Ctrl+D
    Range("B2:I" & Cells(Rows.Count, 1).End(xlUp).Row).Select
    Selection.FillDown
    'J2の番号を見て連番を振る。
    Range("J2").AutoFill Destination:=Range("J2:J" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillSeries
End If
End Sub

	A	B	C	D	E	F	G	H	I	J
１	年	月	日	曜日	名称	市	地区	自治区等	旧市町村	番号
２	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		10

	A	B	C	D	E	F	G	H	I	J
１	年	月	日	曜日	名称	市	地区	自治区等	旧市町村	番号
２	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		10
3	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		11
4	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		12
5	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		13
6	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		14
7	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		15
8	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		16
9	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		17
10	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		18
11	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		19
12	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		20
13	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		21
14	2018	4	1	日	陸海空	アマゾン	3丁目	洞穴		22