VBA kopier kun celler der har indhold

Det kan du gøre med en formel. Indsæt formlen i A kolonnen, og kopier ned, så langt du ønsker at dække rækkerne.
=SAMMENKÆDNING(B1;C1)

Ja jeg har prøvet med =B1&C1 og får samme resultat, men da jeg skal arbejde videre med cellerne i pivottabel så er de resterende celler i kol. A ikke tomme længere, når der først har været skrevet noget i dem

Prøv med denne kode, og kør derefter makroen.

Sub SamKol()
    'Sammenkæd kolonner B & C i kolonne A
    Dim LastRow As Long
    With Worksheets("Ark1")
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        With .Range("A1:A" & LastRow)
            .Formula = "=B1&C1"
            .Value = .Value
        End With
    End With
End Sub

Der sker intet

Er det et svar at give tilbage?.
Hvor er det, at der ikke sker intet?
Hvis dit Ark du har eksemplet i, hedder "Ark1" og din tekst står i kolonne B og C, så vil koden sammensætte teksterne i kolonne A.

Mit ark er Ark1, jeg har i cellerne b1, b5, b10 stående et s og i c2, c6 stående et d
Men der sker intet når jeg køre makro.

Sub SamKol()
    'Sammenkæd kolonner B & C i kolonne A
    Dim LastRow As Long
    With Worksheets("Ark1")
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        With .Range("A1:A" & LastRow)
            .value = .offset(0,1).value & .offset(0,2).value
            .Value = .Value
        End With
    End With
End Sub

tror det skal være sådan da de andet kun kikkser i række 1
Rettelse  .value = .offset(0,1).value & .offset(0,2).value

Så ved jeg ikke hvad der sker i dit Ark. Når jeg tester koden her (også med dit eks. i #6), så sammensættes tekst i Kolonne A, i de respektive rækker.
Indsætter du koden i dit Ark (f.eks. højreklik på Ark fanen, og vælg "Vis programkode"), og så indsæt koden i det Ark.

Dette var underligt, jeg startede en ny Excel fil op og kopi ebea's forslag ind og kørte den og dette fungeret, forstår ikke hvorfor den ikke gjorde i det andet ark, men det vigtigste er at det virker nu.

Jan Hansen, den melder fejl i den linje 
.value = .offset(0,1).value & .offset(0,2).value

#7  -  Hvorfor mener du at det skulle ændre noget?.
Der kigges jo på de rækker hvor der indeholdes værdier, og ned til enden af kolonnen, i forhold til Value og Range værdier.

Kan ikke svare på hvorfor der var knude i mit første ark, men takker for hjælpen, nu kan jeg komme til at udbygge min Makro.

Du er velkommen! Det vigtigste var, at det kom til at virke ;-)