Copy and Paste Plain Text into new Workbook

[NissanGTR]

I have a range of cells from A1 to D?? (Anywhere from 10-100) in which contains a bunch of formulas. I need to create a macro which copies and pastes (As plain text and not the formulas) the range of active cells into a new workbook.

The column D may contain Blank Cells. How can i define the range of active cells (from A1 to D?) if there are blanks in the column??

 

[wigi]

Please:

Sub wigi()

    With Cells(1).CurrentRegion.Resize(, 4)
        Workbooks.Add.Sheets(1).Cells(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With

End Sub

 

[wigi]

Alternatively:

Sub wigi()

    sq = Cells(1).CurrentRegion.Resize(, 4)
    Workbooks.Add.Sheets(1).Cells(1).Resize(UBound(sq), 4) = sq

End Sub

 

[NissanGTR]

Alternatively:

Sub wigi()

    sq = Cells(1).CurrentRegion.Resize(, 4)
    Workbooks.Add.Sheets(1).Cells(1).Resize(UBound(sq), 4) = sq

End Sub

WIGI,

Ive tried both your solutions and got the same result. I apologize as I neglected to mention that the first few rows are empty in the worksheet (As well as the A column) , so i should start at B5 thru I?? (i said A and D earlier but now im trying to avoid the empty cells and add more to the sheet at the same time) rather than A1 and go Down. Could you please help with this?

The copy and paste feature was working but i wasnt getting the returned cells that i need.

 

[wigi]

If it cell B5 until I ...:

Sub wigi()

    With Range("B5").CurrentRegion.Resize(, 8)
        Workbooks.Add.Sheets(1).Cells(1).Resize(.Rows.Count, 8).Value = .Value
    End With

End Sub

This code does not like empty rows and empty columns. Please avoid them.

Please can you make the effort to undertstand the code, such that you can change it yourself?