s = 8
e = 23
  On Error Resume Next
  With Worksheets("Основная таблица")
    Do While Not IsEmpty(.Cells(s, 15))
    Worksheets(.Cells(s, 15)).Cells(e, 1) = .Cells(s, 2)
    If Err > 0 Then Exit Do Else s = s + 1
    e = e + 1
    Loop
  End With
  Application.ScreenUpdating = True

Application.Sheets("lx03").Select 'Выбор листа lx03
For i = 1 To LastColumn 'Перемещение в нужные столбцы
    If Cells(1, i).Value = "Storage Type" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AA") _
       Worksheets("Additionaltable").Range("A")
       Else
    If Cells(1, i).Value = "Storage Bin" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AB") _
       Worksheets("Additionaltable").Range("B")
       Else
    If Cells(1, i).Value = "Material" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AC") _
       Worksheets("Additionaltable").Range("C")
       Else
    If Cells(1, i).Value = "Available stock" Then
       Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("lx03").Range("AD") _
       Worksheets("Additionaltable").Range("D")
       End If
       End If
       End If
       End If
Next i

for i =1 to 50
if cells(1,i).value <> "Dest Storage Type" then
i = i +1
next i
if i = 51 then msgbox "нет данных"

Worksheets("Sheet1").Select
lLastRow = Cells.SpecialCells(xlLastCell).Row
For i = 1 To 50
    If Cells(1, i).Value = "Dest. Storage Type" Then
    Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("sheet1").Range("V1")
        Exit For
      End If
    Next

For i = 1 To 50
If Cells(1, i).Value = "Dest. Storage Type" Then
Range(Cells(1, i), Cells(1, i).End(xlDown)).Copy Worksheets("LT23").Range("V1")
Exit For
End If
Next i

Range(Cells(1, i), Cells(100000, i)).Copy

Dim ans As String
Dim ans1 As String
Dim str As Long   
   ans = MsgBox("ммм", vbYesNo)

   If ans = vbYes Then
       For str = 1 To 30000
          Cells(str, 11).Value = Cells(str, 9).Value * Cells(str, 8).Value * Cells(str, 7).Value
       Next str
   Else
       ans1 = MsgBox("ммм", vbOKOnly)
   End If 
End Sub