Copy Rows in VBA starting in middle of sheet to first empty row: Excel 2013

[blueroo123]

Hi Everyone:

I have been sorting through a problem, but cannot exactly figure out how to do it..

We need to be able to start a specific cell "F283" and move down through column F until there is a blank cell, and copy that column for use somewhere else. I have seen a couple offerings that are similiar to:

nrows = Worksheets("Master").Cells(Rows.Count, 4).End(xlUp).Row
    Worksheets("Copy").Rows("2").Copy Worksheets("Copy").Range("A3").Resize(nrows)

But, we need to start at a specific cell, rather than D1. Can someone please help me solve this one?

Thanks in advance!

 

[Momentman]

Range("F283:F" & Range("F283").End(xlDown).Row).Copy Range("D1")

This line of code copies from F283 down to a blank cell and pastes it starting in cell D1. Change ranges as needed

 

[Michael M]

Couple of questons..
1. IS it always going to start at cell F283 ??
2. Your title says copy rows, but your message syas column.....which is it ??

and copy that column for use somewhere else

 

[blueroo123]

Hi Momentman -

I tried the code and revised the ranges, and it did not seem to paste into cell D1 -- am I forgetting something?

 

[blueroo123]

Michael:

Yes, so I am looking to copy in a column, starting in a specific cell "F283" - which will always be the starting point - and determine the range to copy, based upon the appearance of the first blank cell - and copy that to a specific location, "D1". Does that help?

 

[blueroo123]

Momentman - sorry, it worked perfectly and copied the formulas -- how would I modify it to paste values only?

 

[Momentman]

Hi Momentman -

I tried the code and revised the ranges, and it did not seem to paste into cell D1 -- am I forgetting something?

The code did work for me. Confirm you have data in cell f283 and downwards and that the sheet that has the data is the active sheet when the code is run

Sub CopyFromMiddle()
    Range("F283:F" & Range("F283").End(xlDown).Row).Copy
    Range("D1").PasteSpecial (xlPasteValues)
End Sub

 

[blueroo123]

Perfect - I fixed my error. Thanks for the assist!