Tot = 0

LastRow = Cells(Rows.Count, 1).End(|Up).Row

For i = LastRow To 4 Step -1

If Cells(i, 1) Value = "Matthew" Then

Rows(i).Delete

Else

Tot = Tot + Cells(i, 3).Value

End if

Next i

MsgBox "The final result is " & Tot., " 2200*

End Sub

\begin{tabular}{|l|l|r|r|r|} \hline & \multicolumn{1}{|c|}{ A } & \multicolumn{1}{c|}{ B } & \multicolumn{1}{c|}{ C } & D \\ \hline 1 & Total Widgets & Sold (TWS) & - 1st & Quarter \\ \hline 2 & & & & \\ \hline 3 & Name & January & February & March \\ \hline 4 & Abe & 10 & 100 & 1,000 \\ \hline 5 & Bells & 10 & 100 & 1,000 \\ \hline 6 & Charles & 10 & 100 & 1,000 \\ \hline 7 & & & & \\ \hline 8 & David & 10 & 100 & 1,000 \\ \hline 9 & Frank & 10 & 100 & 1,000 \\ \hline 10 & & & & \\ \hline 11 & Harold & 10 & 100 & 1,000 \\ \hline 12 & lan & 10 & 100 & 1,000 \\ \hline 13 & Jared & 10 & 100 & 1,000 \\ \hline 14 & Lila & 10 & 100 & 1,000 \\ \hline 15 & Matthew & 10 & 100 & 1,000 \\ \hline 16 & Total & 100 & 1,000 & 10,000 \\ \hline \end{tabular} Sub TWSO Tot =0 LastRow = Cells(Rows.Count, 1).End(x|Up).Row For i= LastRow To 4 Step 1 If Cells (i,1).Value = "Matthew" Then Rows(i).Delete Else Tot = Tot + Cells(i, 3).Value End If Nexti MsgBox "The final result is " \& Tot,," 2200 " End Sub MsgBox "The final result is " \& Tot, , "2200" End Sub \begin{tabular}{|l|} \hline 1,900 \\ 1,700 \\ 1,800 \\ 160 \\ 170 \\ \hline \end{tabular}