using VBA to copy a ful contecnt of a row until non blank row

[Philip00]

Hi Everybody,

I would like to copy an entire row which is -1 next to an active cell from BI ( so i want to copy content from A to BH.

I was able to select and copy the rows until non blank row however if the row contains blank cell then the VBA search data which above it until it not find.

I want to copy the exact content which the row contains (blank or non blank)

Can you help me? i did that one

ActiveCell.Offset(-1, -1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy

Dim rng As Range

Set rng = Range("A1:BH" & Range("BH" & Rows.Count).End(xlUp).Row)

rng.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"


rng.Value = rng.Value

ActiveSheet.Paste




Thank you in Advance,