Dim Journal(15) As Variant

Dim PriceJanuary(15) As Long
Dim PriceFebruary(15) As Long
Dim PriceMarch(15) As Long
Dim PriceApril(15) As Long
Dim PriceMay(15) As Long
Dim PriceJune(15) As Long

Dim January(15) As Long
Dim February(15) As Long
Dim March(15) As Long
Dim April(15) As Long
Dim May(15) As Long
Dim June(15) As Long

Dim TwoJournal As Integer

Sub AddJournals()
Journal(1) = InputBox("Введите название первого журнала")
Cells(2, 2) = Journal(1)
Cells(11, 2) = Journal(1)
Journal(2) = InputBox("Введите название второго журнала")
Cells(2, 3) = Journal(2)
Cells(11, 3) = Journal(2)
Journal(3) = InputBox("Введите название третьего журнала")
Cells(2, 4) = Journal(3)
Cells(11, 4) = Journal(3)
Journal(4) = InputBox("Введите название четвертого журнала")
Cells(2, 5) = Journal(4)
Cells(11, 5) = Journal(4)
Journal(5) = InputBox("Введите название пятого журнала")
Cells(2, 6) = Journal(5)
Cells(11, 6) = Journal(5)
Journal(6) = InputBox("Введите название шестого журнала")
Cells(2, 7) = Journal(6)
Cells(11, 7) = Journal(6)
Journal(7) = InputBox("Введите название седьмого журнала")
Cells(2, 8) = Journal(7)
Cells(11, 8) = Journal(7)
Journal(8) = InputBox("Введите название восьмого журнала")
Cells(2, 9) = Journal(8)
Cells(11, 9) = Journal(8)
Journal(9) = InputBox("Введите название девятого журнала")
Cells(2, 10) = Journal(9)
Cells(11, 10) = Journal(9)
Journal(10) = InputBox("Введите название десятый журнала")
Cells(2, 11) = Journal(10)
Cells(11, 11) = Journal(10)
Journal(11) = InputBox("Введите название одиннадцатый журнала")
Cells(2, 12) = Journal(11)
Cells(11, 12) = Journal(11)
Journal(12) = InputBox("Введите название двенадцатый журнала")
Cells(2, 13) = Journal(12)
Cells(11, 13) = Journal(12)
Journal(13) = InputBox("Введите название тринадцатый журнала")
Cells(2, 14) = Journal(13)
Cells(11, 14) = Journal(13)
Journal(14) = InputBox("Введите название четырнадцатый журнала")
Cells(2, 15) = Journal(14)
Cells(11, 15) = Journal(14)
Journal(15) = InputBox("Введите название пятнадцатый журнала")
Cells(2, 16) = Journal(15)
Cells(11, 16) = Journal(15)

End Sub

Sub AddPriceJournals()

For i = 1 To 15
1 PriceJanuary(i) = InputBox("Введите цену для журнала " & Journal(i) & " за Январь")
Cells(3, i + 1) = PriceJanuary(i)
Next i

For i = 1 To 15
PriceFebruary(i) = InputBox("Введите цену для журнала " & Journal(i) & " за Февраль")
Cells(4, i + 1) = PriceFebruary(i)
Next i

For i = 1 To 15
PriceMarch(i) = InputBox("Введите цену для журнала " & Journal(i) & " за Март")
Cells(5, i + 1) = PriceMarch(i)
Next i

For i = 1 To 15
PriceApril(i) = InputBox("Введите цену для журнала " & Journal(i) & " за Апрель")
Cells(6, i + 1) = PriceApril(i)
Next i

For i = 1 To 15
PriceMay(i) = InputBox("Введите цену для журнала " & Journal(i) & " за Май")
Cells(7, i + 1) = PriceMay(i)
Next i

For i = 1 To 15
PriceJune(i) = InputBox("Введите цену для журнала " & Journal(i) & " за Июнь")
Cells(8, i + 1) = PriceJune(i)
Next i

End Sub

Sub Sell()

For i = 1 To 15
January(i) = InputBox("Введите кол-во проданных журналов " & Journal(i) & " за Январь")
Cells(12, i + 1) = January(i)
Next i

For i = 1 To 15
February(i) = InputBox("Введите кол-во проданных журналов " & Journal(i) & " за Февраль")
Cells(13, i + 1) = February(i)
Next i

For i = 1 To 15
March(i) = InputBox("Введите кол-во проданных журналов " & Journal(i) & " за Март")
Cells(14, i + 1) = March(i)
Next i

For i = 1 To 15
April(i) = InputBox("Введите кол-во проданных журналов " & Journal(i) & " за Апрель")
Cells(15, i + 1) = April(i)
Next i

For i = 1 To 15
May(i) = InputBox("Введите кол-во проданных журналов " & Journal(i) & " за Май")
Cells(16, i + 1) = May(i)
Next i

For i = 1 To 15
June(i) = InputBox("Введите кол-во проданных журналов " & Journal(i) & " за Июнь")
Cells(17, i + 1) = June(i)
Next i

End Sub

Sub TwoSell()
For i = 1 To 15
Cells(18, 1 + i) = (January(i) * PriceJanuary(i)) + (February(i) * PriceFebruary(i))
Next i

End Sub

Sub AllSell()

Dim One As Integer
Dim Two As Integer
Dim Three As Integer
Dim Four As Integer
Dim Five As Integer
Dim Six As Integer

For i = 1 To 15
One = One + January(i) * PriceJanuary(i)
Cells(12, 17) = One
Next i

For i = 1 To 15
Two = Two + February(i) * PriceFebruary(i)
Cells(13, 17) = Two
Next i

For i = 1 To 15
Three = Three + March(i) * PriceMarch(i)
Cells(14, 17) = Three
Next i

For i = 1 To 15
Four = Four + April(i) * PriceApril(i)
Cells(15, 17) = Four
Next i

For i = 1 To 15
Five = Five + May(i) * PriceMay(i)
Cells(16, 17) = Five
Next i

For i = 1 To 15
Six = Six + June(i) * PriceJune(i)
Cells(17, 17) = Six
Next i
End Sub

Sub FullAll()
Dim Full As Integer

For i = 1 To 15
Full = Full + (January(i) * PriceJanuary(i)) + (February(i) * PriceFebruary(i)) + (March(i) * PriceMarch(i)) + (April(i) * PriceApril(i)) + (May(i) * PriceMay(i)) + (June(i) * PriceJune(i))
Cells(19, 2) = Full
Next i
End Sub