RETURNING ONLY FILLED CELLS (with value/text) From sheet

[Dmrs92]

Hello,
I would like to have option to return cells with value/text in other sheet to another.
So if I have value in range for example from A2 to a15 in sheet1, I would like to return all values/texts without gaps to range a2 to a15 to diffrent sheet. The best option it would be makro but i can't do it. If formula can do it I take it.

Anybody can help with this issue ?

Thank you in advance,

 

[MARK858]

Maybe...

Sub cpaste()
Sheets("Sheet1").Range("A2:A15").SpecialCells(2, 23).Copy Sheets("Sheet2").Range("A2")
End Sub

 

[Dmrs92]

It's working last question how to paste only values without source formatting ?

 

[MARK858]

It's working last question how to paste only values without source formatting ?

Sub cpaste2()
    Sheets("Sheet1").Range("A2:A15").SpecialCells(2, 23).Copy
    Sheets("Sheet2").Range("A2").PasteSpecial xlValues
    Application.CutCopyMode = False
End Sub

 

[Dmrs92]

Thank you for help and sorry for late response, working fine.