Me dá Error 1004 en propiedad LineStyle

Tengo un libro de excel con un formulario que me permite crear una hoja, despues de haber rellenado una serie de textbox, y me los pasa a distintas filas de la hoja creada. Todo funciona bien si se crean más de una fila, pero si intento crear una hoja de una sola fila me dá error 1004 en tiempo de ejecución "No se puede asignar la propiedad LineStyle de la clase Border".

Mi macro es:

Sub Lineas()
'
' Macro Lineas Macro
' Macro grabada el 08/03/2015 por Raul
'
' Macro que traza las líneas finales de la hoja
Dim filaFinal As Byte

If Range("A4") <> "" Then
Range("A3").Select
Range("A3", Range("A3").End(xlDown)).Select
filaFinal = Selection.Cells(Selection.Cells.Rows.Count, 1).Row
Else
filaFinal = 3
End If

Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1" & ":H" & filaFinal - 2).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
'Aquí dá el error
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
'.TintAndShade = 0
.Weight = xlThin
End With
'Pone la palabra TOTAL en la columna F
Range("f" & filaFinal + 1).Select
ActiveCell.Value = "TOTAL"
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
End With
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = xlAutomatic
End With
' Pone la formula de la SUMA
Range("G" & filaFinal + 1).Select
Range("G" & filaFinal + 1).Formula = "=SUM(G3:G" & filaFinal & ")"
copiahoja
End Sub

Si necesitan que les mande el libro me lo dicen.

Si pueden indicarme a que es debido el error se lo agradecería.