>>674
Sub ボタン1_Click()

Dim i, j, k As Long

k = 3

For j = 2 To 7
For i = 3 To 10
If Cells(i, j).Value <> "-" Then
Cells(i, j).Value = Cells(k, 9)
k = k + 1
End If
Next i, j

End Sub

https://dotup.org/uploda/dotup.org2009064.jpg.html