En realidad no es necesario insertar filas, tampoco hace falta mostrar y ocultar la hoja, puede estar oculta y aun así hacer los registros.
Puedes agregar una variable para obtener la siguiente fila vacía en la hoja, es importante destacar que la siguiente fila vacía se obtiene de diferente manera si se esta trabajando con una tabla excel que si se trabaja con un rango excel regular, esto se explica en el código siguiente que puede ayudar.
Private Sub CommandButton1_Click()
Dim nombre As String
Dim fecha As String
Dim tarea As String
Dim informe As String
Dim sFila As Long
'usar esta linea solo si se maneja rango normal de excel (no tabla)
'sFila = Hoja6.Cells(Rows.Count, 1).End(xlUp).Row + 1
'usar esta linea solo si se trabaja con tabla excel ( no rango )
sFila = Hoja6.ListObjects("Tabla3").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
nombre = TextBox1.Text
fecha = TextBox2.Text
tarea = TextBox3.Text
informe = TextBox4.Text
If (nombre <> "" And fecha <> "" And tarea <> "" And informe <> "") Then
Hoja6.Range("A" & sFila).Value = nombre
Hoja6.Range("B" & sFila).Value = fecha
Hoja6.Range("C" & sFila).Value = tarea
Hoja6.Range("D" & sFila).Value = informe
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
MsgBox "Informe subido correctamente"
Else
MsgBox "Por favor complete los campos"
End If
End Sub