Copiar formato y fórmula (en caso de que exista) de la fila anterior

Estimados, junto con saludar, escribo porque debo recurrir a ustedes. Mi pregunta principalmente es saber cómo puedo copiar el formato (si o si) y la fórmula (en caso de que exista) en una nueva fila, basándome en la fila anterior.

Hasta el momento tengo esto:

'copiar formato y formula de fila anterior
Range(Cells(ult1 - 1, 1), Cells(ult1 - 1, 47)).Select
Selection.Copy
Range(Cells(ult1, 1), Cells(ult1, 47)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Sin embargo este código sólo me permite copiar los formatos. Traté de reemplazar "xlPasteFormats" por "xlPasteFormulas", sin embargo se copiaba prácticamente todo de la fila anterior. Y lo que estoy haciendo es ingresar datos nuevos mediante un formulario y al momento de ingresar los datos, estos queden con el formato de la fila anterior.

Estaré atento a sus respuestas.

Saludos