OK. I saw your original had ".Offset(0,0)" which is superfluous but perhaps this:

Private StartCell As Range
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

If Target.SubAddress <> StartCell.Address Then Exit Sub

If Range("A13").EntireRow.Hidden Then
    Range("13:64").EntireRow.Hidden = False
    StartCell.Value = "See Less"
Else
    Range("13:64").EntireRow.Hidden = True
    StartCell.Value = "Please Click here to see more"
End If

End Sub
Public Sub HideRows()

With ThisWorkbook.Worksheets("Bible")
    Set StartCell = .Cells(.Rows.Count, "J").End(xlUp).Offset(1, 0)
    StartCell.Value = "Please Click here to see more"
    .Range("13:64").EntireRow.Hidden = True
    .Hyperlinks.Add Anchor:=StartCell, Address:="", SubAddress:=StartCell.Address, TextToDisplay:=StartCell.Text, ScreenTip:="Click Here"
End With

Application.EnableEvents = True

End Sub
Make sure this is in the "Bible" sheet code window and not a separate module.

WBD