Na jetzt verstehe ich...
Also ich würde es folgendermassen machen:

Const FF = &H0C 'Steuerzeichen Formfeed
Const LF = &H0A 'Steuerzeichen Linefeed
Const Pu = &H2E 'Punkt
Const Dp = &H3A 'Doppelpunkt
Const Le = &H20 'Leerzeichen
Const Ko = &H2C 'Komma
Const Adr = &HA0 'Adresse Eeprom
Dim AdrCount as Word 'Zähler Speicherplatz Eeprom

Die anderen Variablen von dir musst du natürlich entsprechend anpassen.
Daten von der RTC nenne ich mal Tag, Monat, Jahr, Stunde, Minute.
Und vom LM nenne ich mal T1msb, T1lsb, T2msb, T2lsb. (Vor und Nachkommastelle)

Subroutine
Ttag = Makedec(Tag) 'aus der RTC muss erst gewandelt werden, da BCD Code
Tmonat = Makedec(Monat) 'u.s.w. bis zur Minute
H=(High)AdrCount
L=AdrCount
I2cstart
I2cwbyte Adr
I2cwbyte H 'Speicherstelle im Eeprom
I2cwbyte L
I2cwbyte Ttag
I2cwbyte Pu
I2cwbyte Tmonat
I2cwbyte Pu
I2cwbyte Tjahr
I2cwbyte Le
I2cwbyte Tstunde
I2cwbyte Dp
I2cwbyte Tminute
I2cwbyte Le
I2cwbyte T1msb 'Temperatur 1 Vorkommastelle
I2cwbyte Ko
I2cwbyte T1lsb 'Nachkommastelle
I2cwbyte Le
I2cwbyte T2msb 'Temperatur 2 Vorkommastelle
I2cwbyte Ko
I2cwbyte T2lsb 'Nachkommastelle
I2cwbyte FF
I2cwbyte LF 'damit ist die Formatierung auch im Eeprom
I2cstop

Damit sind jetzt 19 Werte im Eeprom.
Jetzt muss der Adresszähler noch erhöht werden.

If AdrCount < &H7FEB then AdrCount = AdrCount + 19 Else AdrCount = 0

Wenn der Eeprom voll ist, wird wieder von vorne beschrieben.

Ich hoffe ich habe nichts vergessen.
Wenn doch musst du nochmal nachfragen.