Sub test()
Dim TABL() As Variant, L As Long, C As Long
TABL = ThisWorkbook.Worksheets(1).Cells(1, 1).CurrentRegion.Value
For L = 1 To UBound(TABL, 1)
For C = 1 To UBound(TABL, 2)
TABL(L, C) = TABL(L, C) * 2
Next C
Next L
ThisWorkbook.Worksheets(2).Cells(1, 1).Resize(UBound(TABL, 1), UBound(TABL, 2)).Value = TABL
End Sub