Hi all my code so far is the following:
Sub Ace_Click1()
Dim NC As Integer
NC = WorksheetFunction.Max(2, Cells(19, Columns.Count).End(xlToLeft).Column + 1)
Cells(19, NC).Value = 11
NC = WorksheetFunction.Max(2, Cells(21, Columns.Count).End(xlToLeft).Column + 1)
Cells(21, NC).Value = 1
End Sub...