Range("A2:G" & iLR).ClearContents
   Range("A9:G9").Copy .Cells(1, "A")     '??????????? ?????
   For i = 10 To iLastRow
     If Not IsEmpty(Cells(i, "G")) Then
       iLR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
       Range("A" & i & ":G" & i).Copy .Cells(iLR, "A")

Sub test()
Dim rng As Range, mass(), wsh As Worksheet, flag As Boolean, wName As String, i As Long, RowsNumber As Long
Dim TotalSum As Currency

Application.ScreenUpdating = False

wName = "Заказ"
For Each wsh In ActiveWorkbook.Worksheets
    If wsh.Name = wName Then
        flag = True
    End If
Next wsh


If flag Then
    ActiveWorkbook.Worksheets(wName).UsedRange.Clear
Else
    Set wsh = ActiveWorkbook.Sheets.Add(, Worksheets("Прайс"))
    wsh.Name = wName
End If


Set wsh = Worksheets(wName)
wsh.Range("A1").Value = "Группа"
wsh.Range("B1").Value = "Артикул"
wsh.Range("C1").Value = "Наименование"
wsh.Range("D1").Value = "Производство"
wsh.Range("E1").Value = "Цена"
wsh.Range("F1").Value = "Заказ"

Set rng = Worksheets("Прайс").Range("A3").Resize(Worksheets("Прайс").Range("A3").CurrentRegion.Rows.Count, 6)
mass() = rng.Value

For i = 1 To UBound(mass, 1)
    If IsNumeric(mass(i, 6)) And Not IsEmpty(mass(i, 6)) And mass(i, 6) <> 0 Then
        RowsNumber = wsh.UsedRange.Rows.Count
        wsh.Range("A1").Offset(RowsNumber, 0).Value = mass(i, 1)
        wsh.Range("B1").Offset(RowsNumber, 0).Value = mass(i, 2)
        wsh.Range("C1").Offset(RowsNumber, 0).Value = mass(i, 3)
        wsh.Range("D1").Offset(RowsNumber, 0).Value = mass(i, 4)
        wsh.Range("E1").Offset(RowsNumber, 0).Value = mass(i, 6)
        wsh.Range("F1").Offset(RowsNumber, 0).Value = mass(i, 5) * mass(i, 6)
        TotalSum = TotalSum + mass(i, 5) * mass(i, 6)
    End If
Next i

wsh.UsedRange.Borders.LineStyle = xlContinuous
wsh.UsedRange.Borders.Weight = xlThin
wsh.Columns("A:D").EntireColumn.AutoFit

wsh.Range("A1").Offset(RowsNumber + 1, 0).Resize(1, 6).Borders(xlEdgeBottom).LineStyle = xlContinuous

wsh.Range("A1").Offset(RowsNumber + 3, 0).Value = "Итого:"
wsh.Range("D1").Offset(RowsNumber + 3, 0).Value = TotalSum

wsh.Columns("A:D").EntireColumn.AutoFit

wsh.Activate

Application.ScreenUpdating = True


End Sub