Makro İle Başlık Satırı Getirme

[kada006]

Arkadaşlar İstediğim Şey Şu Sql den Makro İle 1 sayfa içine Getirdiğim Tablolar Var Fakat Sql den çektiğim için sadece A1 satırında başlık var diğer tablolarada makro ile başlık getirmek istiyorum dosyayı ekliyorum yardımcı olabilirseniz çok sevinirim teşekkür ederim

 

[Korhan Ayhan]

Deneyiniz.

Sub BAŞLIKLARI_KOPYALA()
    For X = 2 To Cells(Rows.Count, "G").End(3).Row
        If Cells(X, "G") <> "" And Cells(X - 1, "G") = "" Then
            If Cells(X, "G") <> "TOPLAM" Then
                Range("A1:Z1").Copy Range("A" & X - 1)
            End If
        End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kada006]

hocam çok teşekkür ederim istediğim gibi oldu ancak birde bu tablolara içi ince dış çerçevesi kalın nasıl yapabilirim ben koşullu biçimlendirme ve makro ile yaptım ama birleştirilmiş hücre olduğu için çizgiler tam olmuyor eğer yardımcı olabilirseniz çok sevinirim