复制单行范围

• 限定所有对象：Workbook - Worksheet - Range .
• 使用变量来避免长的不可读的行。
• 注意不要混淆行和列：

单个细胞的.Cells(RowNum, ColStr)与.Range(ColStr & RowNum)。

Sub StoreNewFoodRecord()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim sws As Worksheet: Set sws = wb.Sheets("Details")
    Dim srg As Range: Set srg = sws.Range("E12:G12") ' single row
    
    Dim dws As Worksheet: Set dws = wb.Sheets("Calculator")
    Dim dfCell As Range
    Set dfCell = dws.Cells(dws.Rows.Count, "H").End(xlUp).Offset(1)
    Dim drg As Range: Set drg = dfCell.Resize(, srg.Columns.Count) ' single row

    ' Either copy only values (most efficient)...        
    drg.Value = srg.Value ' same sized ranges are necessary
    ' ... or copy values, formulas, and formats:
    'srg.Copy dfCell ' you don't need the range, the first cell is enough

End Sub