Sheets.Cells osv - men jeg har ikke cells kordinaterne, så kan?

Må vi se mere kode. ?
Har du koden i et selvstændig modul og ikke i et ark modul.
Hvis det er i et arkmodul, kan du ikke arbejde med andre ark.

Det er IKKE et ark-modul. 
Min kode er lidt rodet, men ser sådan her ud:If c.Row < 55 Then

If Range("g" & c.Row) <> "" And Range("g" & c.Row) <> "sum" Then
i = Range("g" & c.Row)
Sheets("Hoved data").Range(i)= Range("e" & c.Row).Value
End If
End If

i = Range("g" & c.Row) 'range("g" & c.row) er f.eks. = $a$6


Er du/i med???

If c.Row < 55 Then
If Range("g" & c.Row) <> "" or Range("g" & c.Row) <> "sum" Then' rettet AND til OR
i = Range("g" & c.Row)' hvorfor peger du på G her, når du i næste linie peger på E
Sheets("Hoved data").Range(i)= Range("e" & c.Row).Value
End If
End If

i = Range("g" & c.Row) 'range("g" & c.row) er f.eks. = $a$6

ret lige
i = Range("g" & c.Row)
til
i = Range("g" & c.Row).address

If c.Row < 55 Then
If Range("g" & c.Row) <> "" or Range("g" & c.Row) <> "sum" Then' rettet AND til OR
i = Range("g" & c.Row).adress
sheets("Hoved data").Range(i)= Range("e" & c.Row).Value
End If
End If

mon ikke det er sådan

.adress
skal være
.address

I celle "G" står f.eks. $a$6
i celle "e" står f.eks. 49
Jeg er godt klar over at i måske kunne undværes, og g&c.row måske kunne skrives direkte i sheets linien, men jeg kan ikke li for "store" formler...

Jeg vil følgende:
If Range("g" & c.Row) <> "" And Range("g" & c.Row) <> "sum" Then
"g" skal ikke være tom og IKKE = sum hvis det er sandt så:
i = Range("g" & c.Row)
"G" er f.eks. = $a$6  - Den fortæller hvor data kommer fra, hvis ref.navnet er belvet ændret under forløbet. "g"&c.row er f.eks ="$a$6"
Sheets("Hoved data").Range(i)= Range("e" & c.Row).Value
På hoveddata siden vil jeg så sætte "e"&c.row ind i "$a$6" - men det kan den ikke fatte..
(ha ha - sidder lige og finder ud af at det også er forkert - den skal ikk sættes ind i "a6" men i "c6")

End If
End If

SUK - hvad har jeg dog rodet mig ud i....

Kabbak>> Det er linien sheets.... den "brækker sig" over...: Subschript out of range.
Men er der en lettere måde at gøre det på??
Jeg tænkte at man kunne lave en for-next hvor man direkte vælger ark og placerer kopien:

For i=1 to ??
sheets"opt...".select
Kopi celle ??
sheets"Hove..".select
paste
next.

Er det lettere??

Det er både b,c,d,f der skal kopieres til andet ark, så det er måske det letteste. G henviser som nævnt til f.eks a6, men data skal sættes ind i c,d,e,g, så feltet g referer til skal også ændres.

Ideen til den første måde var følgende velfungernede linie:
Sheets("opgørelse").Cells(a, 2) = Range("e" & c.Row).Value
Men den virker åbenbart ikke med RANGE istedet for Cells.

NEJ NEJ NEJ - HVOR DUM KAN MAN VÆRE?????

Arket det skal kopieres over i hedder ikke HOVED DATA men HOVED ARK!!!!

Hold da K... hvor er jeg en klaphat!!!!!!!
Så har det sikkert virket hele tiden...
Kabbak - må jeg betale dig en DUMMEBØDE, så giv et svar...

hvad er du på, sjov tobak ?. ;-)))

Ja, mon ikke - en tyktflydende en af slagsen  ;-)