Sub siri() Dim N1 As Double Dim N2 As Double Dim Lion As Integer Lion = 10 For counter = 1 To Lion Sheets("Sheet1").Cells(2, counter).Value = Sheets("Sheet1").Cells(1, counter).Value Next For Neko = 1 To Lion For Nezumi = Neko To Lion N1 =…