Thanks a bunch CautionMP
I more or less looked at your code and came up with the following....
Option Explicit
Option Base 1
Dim i As Integer, j As Integer, column1 As Double, column2 As Single, column3 As Single, column4 As Single, rowtotals As Double
Dim total As Single
Dim matrix(4, 4)
Sub...