ActiveCell Kod Hatası

[kadir78]

İyi akşamlar. Aşağıdaki makro kodlarında kırmızı ile işaretleğim Activecell olan kısım hata veriyor. Nasıl çözebilirim, yardımcı olur musunuz.
Amaç Bilgiler sayfasındaki veriyi, Etiket sayfasındaki aktif hücreye aktarmak.

Sub Aktar()

If Worksheets("Bilgiler").Range("E1").Value = "" Then
Worksheets("Etiket").Select
ActiveCell.Offset(0, 1).Select
Worksheets("Bilgiler").Select

Else
Worksheets("Etiket").Select
a = Sheets("Bilgiler").[C1] & "-" & [E1]
Sheets("Etiket").[COLOR="Red"]ActiveCell[/COLOR] = a
ActiveCell.Offset(0, 1).Select
Worksheets("Bilgiler").Select
End If

End Sub

 

[AdemCan]

Merhabalar;

a = Sheets("Bilgiler").[C1] & "-" & [E1] satırını
a = Sheets("Bilgiler").[C1] & "-" & Sheets("Bilgiler").[E1] şeklinde değiştiriniz.

Sheets("Etiket").ActiveCell = a satırını Sheets("Etiket").Select şeklinde değiştirip altına ActiveCell.Value = a satırını ekleyiniz.

Bu şekilde hata vermeyecektir.

 

[kadir78]

Çok teşekkür ederim. Sağolun.

 

[AdemCan]

Merhaba;
Rica ederim. İyi çalışmalar.