#Excel VBA, <sub><s>310</s> <s>307</s></sub> 295 Bytes <!-- language-all: lang-vb --> <!-- checked LCM, GCD compression for colors - no-go 03 Aug 2018 --> Anonymous VBE Immediates Window function that outputs a Mario to the Activesheet object at cells `A1:L16` o=2465251:Cells.RowHeight=48:a[A1:L16],-29589:a[C4:K5,D3:I7,J7,L5,A11:L13],o:a[C3:E3,H3:H4,B4:B6,C6,D4:D5,E5,I5,H6:K6,C8:H8,B9:K10,A10:L10,C11,J11,B15:D16,A16,I15:K16,L16],289642:a[D1:H1,C2:K2,E8:E10,F10:H10,H9,D11:I13,C13:E14,H13:J14],2438321:a[E11,H11],o Helper `Sub`Routine a Sub a(r,c):r.Interior.Color=c:End Sub __Ungolfed Version__ Public Sub b() o = 2465251 Cells.RowHeight = 48 a [A1:L16], -29589 a [C4:K5,D3:I7,J7,L5,A11:L13], o a [C3:E3,H3:H4,B4:B6,C6,D4:D5,E5,I5,H6:K6,C8:H8,B9:K10,A10:L10,C11,J11,B15:D16,A16,I15:K16,L16], 289642 a [D1:H1,C2:K2,E8:E10,F10:H10,H9,D11:I13,C13:E14,H13:J14], 2438321 a [E11,H11], o End Sub Private Sub a(ByRef r As Range, ByVal c As Integer) r.Interior.Color = c End Sub -3 bytes for removing whitespace -12 bytes for using `[...]` notation over `Range(...)` notation; changing over from hex colors to int colors ##Output [![It'sa Me][1]][1] [1]: https://i.stack.imgur.com/M5KG2.png