paste special

er det altid i G11 data bliver indsat og er det altid samme range størrelse ?

ja, og ja

går ud fra du har arknavnet i ark statistik (2) celle A3

Sub Kopier2()

x = Sheets("statistik (2)").Range("A3")
Workbooks.Open Filename:="samlet hensættelsesskema.xls"
Workbooks("regnskab.xls").Sheets("statistik (2)").Range("C10:C46").Copy Workbooks("samlet hensættelsesskema.xls").Sheets(x).Range("G11")
For Each c In Workbooks("samlet hensættelsesskema.xls").Sheets(x).Range("G11:G47")
c.Value = c.Value / 1000
Next
Workbooks("samlet hensættelsesskema.xls").Close savechanges:=True

End Sub

Udemærket svar.
Lige sidste krølle:

hvis der ingen værdi er i cellen, skriver denne makro "0,00"
Er det muligt at efterlade cellen blank?

Ydermere:
At lave "pastningen" til values
-nu tager den også formateringen med.

havde godt nok glemt denne - prøv :

Sub Kopier2()

x = Sheets("statistik (2)").Range("A3")
Workbooks.Open Filename:="samlet hensættelsesskema.xls"
Workbooks("regnskab.xls").Sheets("statistik (2)").Range("C10:C46").Copy Workbooks("samlet hensættelsesskema.xls").Sheets(x).Range("G11")
For Each c In Workbooks("samlet hensættelsesskema.xls").Sheets(x).Range("G11:G47")
c.ClearFormats
If c.Value > 0 Then c.Value = c.Value / 1000
Next
Workbooks("samlet hensættelsesskema.xls").Close savechanges:=True

End Sub

hjalp det ?

beklager jeg ikke har svaret. i næste uge vender jeg tilbage