Copy from one cell to next available cell

[AndrewD04]

Hi,

I have a sheet i am working on and want to copy the data from the cells to another sheet but as text only and not use the formatting.

this is what i am using but this copies the formatting or formula when i would like just text

Sub Bar()
Dim r1 As Range, r2 As Range
Set r1 = Sheets("TM").Range("f25")
Set r2 = Sheets("TM Bar").Range("A100").End(xlUp).Offset(1, 0)
r1.Copy r2
ActiveWorkbook.Close SaveChanges:=True
End Sub

 

[Fluff]

How about

Sub Bar()
Sheets("TM Bar").Range("A100").End(xlUp).Offset(1, 0).Value = Sheets("TM").Range("f25").Value
ActiveWorkbook.Close SaveChanges:=True
End Sub

 

[AndrewD04]

Doesn't seem time that run time error 438

 

[Fluff]

What is the error message?