n = InputBox("Ввести n")
m = InputBox("Ввести m")

For i =  1  To m - n +  1 
MsgBox$ n -  1  + i & " kg - " & (n -  1  + i) *  0 . 4  & " fn"
Next i

Public Sub Chaosu()
Dim m As Integer
Dim i As Integer ' счётчик и номер строки
Dim n As Integer
Worksheets( 1 ).Range("A1") = "Фунты"
Worksheets( 1 ).Range("B1") = "килограммы"
n = InputBox("Ввести n")
m = InputBox("Ввести m")
If (n >  0 ) And (m >  0 ) And (n < m) Then
For i = n To m - n +  1 
Worksheets( 1 ).Cells(i +  1 ,  1 ).Value = n -  1  + i 'В столбец А выводить фунты
Worksheets( 1 ).Cells(i +  1 ,  2 ).Value = (n -  1  + i) *  0 . 4 
Next i
Worksheets( 1 ).Range("C2") = n
Worksheets( 1 ).Range("D2") = m
End If
End Sub