Olá, estou escrevendo o seguinte código.
Sub DINAMICO()
Dim LINHA As Byte, PREENCHIMENTO As String, PREENCHIMENTOTWO As Currency, PREENCHIMENTOTRES As String
*Range("A1") = "PRODUTO"
Range("B1") = "VALOR"
Range("C1") = "SOBRENOME"
Range("A2") = "-"
Range("B2") = "-"
Range("C2") = "-"*
LINHA = Range("A1").End(xlDown).Row + 1
PREENCHIMENTO = InputBox("NOME")
PREENCHIMENTOTWO = InputBox("VALOR")
PREENCHIMENTOTRES = InputBox("SOBRENOME")
Range("A" & LINHA) = PREENCHIMENTO
Range("B" & LINHA) = PREENCHIMENTOTWO
Range("C" & LINHA) = PREENCHIMENTOTRES
End Sub
Porém, se eu tiro a parte que esta em itálico que no caso é a primeira linha que seria o titulo do que estou escrevendo juntamente com a primeira linha a macro não roda