Erro de tempo de execução 1004 erro definido pelo aplicativo ou definido pelo usuário

Question

Eu tenho o seguinte código. É para minha planilha de estimativas. Eu tenho fórmulas regulares, bem como fórmulas personalizadas que eu crio por trabalho. Quando eu salvo os dados no arquivo com a extensão .mrt, todos os dados, incluindo as fórmulas, são gravados corretamente, sem problemas. No entanto, quando eu abro o arquivo de texto para ler os dados de volta na minha planilha de estimativa, tudo é lido a partir do arquivo de texto e colocado na minha planilha de estimativas, mas recebo o erro Run-time. Se eu limitar o valor de i para 48 em vez de 79 no sub OpenFile, então eu não recebo a mensagem de erro. Obviamente, a mensagem de erro tem algo a ver com o número de células em que estou tentando inserir dados. Aqui está outra coisa interessante; se eu tirar o .Formula em SaveFile sub, não há erros ao ler os dados do arquivo de texto em minha planilha de excel. Vocês podem me ajudar com esse problema?

Private Sub CommandButton6_Click() 'OPEN button
    OpenFile
End Sub

Private Sub CommandButton7_Click() 'SAVE button
    SaveFile
End Sub

Sub OpenFile()
    Dim FileName As Variant

    FileName = Application.GetOpenFilename(",*.mrt")

    If TypeName(FileName) = "Boolean" Then Exit Sub
    Open FileName For Input As #2
    For i = 1 To 79 'est sheet
        For j = 1 To 49
            Input #2, data
            Sheet1.Cells(i, j) = data
        Next j
    Next i
    Close #2
End Sub

Sub SaveFile()
    Dim FileName As Variant

    FileName = Application.GetSaveAsFilename("*.mrt", ",*.mrt")

    If TypeName(FileName) = "Boolean" Then Exit Sub
    Open FileName For Output As #1
    For i = 1 To 79
        For j = 1 To 49
            data = Sheet1.Cells(i, j).Formula
            Write #1, data
        Next j
    Next i
    Close #1
End Sub