Macro To Fill In Data At Botom Of A Sheet

I have a sheet where a user will enter x number of rows of data.

im trying to get it so that the macro, when run, will goto the last row of Data in Colum A, and delete all rows BELOW to the end.
then select the first empty row and do the following

in A =SUM(A30:A last row of data above this one)
in B ='HASH TOTAL'
in D ='TOTAL
in E = same as A but for colum E
in F = same as A but for Colum F
in K =same as A but for Colum k
in J =same as A but for Colum J

then select the row below that one and from cells A:M
and format
With Selection.Interior
.Pattern = xlCrissCross
.PatternColorIndex = xlAutomatic
.ColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With