Copy And Paste Non-adjacent Rows

Good Morning:

Is there any way to copy and paste only rows of adjacent data, that have several hidden rows of data in between, without pasting all of the rows (even the hidden ones)?

Example:
Row 1 = $25.00
Row 2 = hidden
Row 3 = hidden
Row 4 = hidden
Row 5 = $100.00
Row 6 = hidden
Row 7 = $250.00

On the worksheet, Rows 5 and 7 appear directly underneath Row 1, but when I highlight and copy Rows 1, 5 and 7, the paste returns all rows (1 through 7)

Thanks,
Ralph

Is it possible to perform an IF statement in one spreadsheet based on text conditions met in a different spreadsheet?

For example one spreadsheet has a list of text strings with adjacent values in such as:

2009_9_12_months_E26_it_IT 1001
2009_9_12_months_E26_nl_BE 90
2009_9_12_months_E26_nl_NL 540
2009_9_12_months_E26_no_NO 118

However, the placement of the text string and adjacent value is not consistent and can change.

My problem is I have another spreadsheet that has a row labelled Dutch and I need to SUM the values from the cells adjacent to the rows containing the text string "E26_nl" in the first spreadsheet. Something along the lines of:

IF any rows of Column A in spreadsheet1 contains the value "E26_nl"
Then SUM the adjacent values in a cell in spreadsheet2.

In this case for example I would be looking to get the value 630 in a cell in the 2nd spreadsheet.

Anyone know if this is remotely possible or if I'm just clutching at straws?

Any help appreciated. Cheers.

Excel (at least the version I have) does not allow you to copy/paste (or paste-special) multiple selections with one command. That is, I want to be able to select multiple cells in one worksheet (they are adjacent) and copy them to multiple cells in another worksheet where they are NOT adjacent. But Excel does not allow me to do this with one copy/paste command; must be done on each single cell/selection.

Is there a 'work-around' to do this? Or any unique VBA code that would significantly reduce the number of copy/paste commands needed to do this?

Any help much appreciated.

I have a spreadsheet with 32,000 rows and 15 rows. When I copy data from the
spreadsheet and click File New and then paste into the spreadsheet it is very
fast. BUT when I launch another Excel instance and do a paste it is very
slow. Now if I delete about 15,000 rows, the copy/paste is faster. Is there
some sort of limitation of Windows 2000/xp or Excel. IT happens in Excel
2000 and 2003 versions. This is for our customer service department who
works in Excel all day and they say they must have several Excel windows open
for some reason. Not my place to argue with them.

If I copy/paste from an auto-filtered sheet I copy/paste only the highlighted
rows. If I CUT/paste, I cut and paste all the intermediate cells hidden by
the auto-filter. I don't want that! (Note: in the paste sheet the
intermediate cells are hidden until I [FORMAY/ROW/UNHIDE]. Also once you
de-select back to ALL [UNDO] is not available!

Hi,
I'm looking for a way to copy and paste several values from one workbook to another. It needs to search for a value in the old sheet, held in "A1" of the new sheet, and copy and paste that and it's adjacent cells.
So if "A1" in the new sheet equalled "Live", then it would search column "D" in the old sheet for the word "Live" and paste that and Columns "A" to "E" which lie adjacent to it.

TIA

Cunning

Hi all,

I am working on a project for work and every week i need to remove old data from a spreadsheet. i do this by filtering the completed files and deleting. However when i "show all" there are big gaps between existing data. what i would like is the remaining data to automatically move to the top of the sheet leaving no gaps (and ensuring that the data in adjacent cells remains adjacent to it). could anyone help please? i'm fed up of copy and paste!!

there are 17 columns and 1000 rows

Please help folks!!

What I have is a Golf Score Card. Team name is in column A. I would like to write a formula that will look in Y6:Y100 and find a matching number. If a match is found, copy the adjacent name in A and paste in W.

if matching number found in Y - Go to adjacent A and copy - Paste in W

hope that makes sense... Thank you

I am trying to copy filtered rows from different spreadsheets and paste them to the same rows in a spreadsheet? I enountered problem as there are merged cells in 2 of the columns and some of the headers of the copied spreadsheets are different from the headers in the paste spreadsheet. Any idea how this can be done?

I attached a similar sample workbook of my problem with original and paste spreadsheets.

Thanks in advance.

Hi all,

I want a solution for the following problem.

Sometimes I need to copy the values in adjacent/continuous cells and paste them
into the cells which I select and which are not adjacent/continuous.

Like for example i want to copy values from A1:A4 and paste in C1,C4,C7,&C10

help please

thanks

Good afternoon,
I need help copying from an offset column and then filling down. I know how many columns I have but the number of rows will vary so I can't set up a specific range.

My column names are A, B & C. As long as there is data in Column A, I need to copy the contents of cell B3 and paste it into cells C3, C4 and C5. But when the text in Column B changes, or when the first 8 digits in Column A change, I need the information in the adjacent B cell to be copied and pasted instead until the next change.

Please see the attached spreadsheet. I have given an example of what I have and what I want it to look like.
Thanks!

I have inherited a spreadsheet I can not change. I often find myself having to copy from one sheet to the one with a merged cells. I usually have multiple rows to copy over and when I do so it duplicatetes iteself across all 4 columns merged in that destination row.

to summarize, I would like to copy and paste:

Copy
spreadsheet 1
A1
A2
A3
A4

paste to spreadsheet 2
(A1,B1,C1,D1)
(A2,B2,C2,D2)
(A3,B3,C3,D3)
(A4,B4,C4,D4)

Any help would be greatly appreciated.

Thank you.

Good morning, I have been struggling with this project for a week now. I am well versed on Excel with some experience in VBA. What I'm trying to do is copy non-adjacent cells/rows from over 100 different sheets into a new sheet in a summary format. I was able to get this to work initially when only copying specific cells in each sheet. When I tried to look at different fields and their values to determine what data I wanted to copy the code was outside of my experience level. So basically what I want to do is copy the following cells in each sheet if there is no date in the cell range between b12:b2000 on each of the sheets. If there is no data then the only cells I would want to copy and paste across a row are cells B7, B5, H7, H8, B9, C9, D9, K7, K8, P8, Q3, Q5. If there is data in the range of b12:b2000 I would want cells B7, B5, H7, H8, B9, C9, D9, K7, K8, P8, Q3, Q5 and the value to the left of what is found in the b12:b2000 range as well as the next two values to the right of column b. This is the code I have so far.
[code]
Sub Button1_Click()
Dim SiteCol As Range, Cell As Object
Dim ws As Worksheet, LR As Integer
Application.ScreenUpdating = False
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "FMS"
Set SiteCol = Range("b12:b2000") 'Range containing values
For Each ws In ThisWorkbook.Worksheets
For Each Cell In SiteCol
With ws
If IsEmpty(Cell) Then
.Range("B7").Copy
Sheets("FMS").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("B5").Copy
Sheets("FMS").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("H7").Copy
Sheets("FMS").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("H8").Copy
Sheets("FMS").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("B9").Copy
Sheets("FMS").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("C9").Copy
Sheets("FMS").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("D9").Copy
Sheets("FMS").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("K7").Copy
Sheets("FMS").Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("K8").Copy
Sheets("FMS").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("P8").Copy
Sheets("FMS").Range("J" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("Q3").Copy
Sheets("FMS").Range("K" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("Q5").Copy
Sheets("FMS").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
If Cell.Value > "0" Then
.Range("B7").Copy
Sheets("FMS").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("B5").Copy
Sheets("FMS").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("H7").Copy
Sheets("FMS").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("H8").Copy
Sheets("FMS").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("B9").Copy
Sheets("FMS").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("C9").Copy
Sheets("FMS").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("D9").Copy
Sheets("FMS").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("K7").Copy
Sheets("FMS").Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("K8").Copy
Sheets("FMS").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("P8").Copy
Sheets("FMS").Range("J" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("Q3").Copy
Sheets("FMS").Range("K" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range("Q5").Copy
Sheets("FMS").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Selection.Value = Cells(Cell.Row, 13).Value
End If
End With
Next
With Worksheets("FMS")
On Error Resume Next
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
LR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:B" & LR).Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Next ws
End Sub
[\code]

Any help with this would be greatly appreciated.

Good morning, I have been struggling with this project for a week now. I am well versed on Excel with some experience in VBA. What I'm trying to do is copy non-adjacent cells/rows from over 100 different sheets into a new sheet in a summary format. I was able to get this to work initially when only copying specific cells in each sheet. When I tried to look at different fields and their values to determine what data I wanted to copy the code was outside of my experience level. So basically what I want to do is copy the following cells in each sheet if there is no date in the cell range between b12:b2000 on each of the sheets. If there is no data then the only cells I would want to copy and paste across a row are cells B7, B5, H7, H8, B9, C9, D9, K7, K8, P8, Q3, Q5. If there is data in the range of b12:b2000 I would want cells B7, B5, H7, H8, B9, C9, D9, K7, K8, P8, Q3, Q5 and the value to the left of what is found in the b12:b2000 range as well as the next two values to the right of column b. This is the code I have so far.
VB:

Sub Button1_Click() 
    Dim SiteCol As Range, Cell As Object 
    Dim ws As Worksheet, LR As Integer 
    Application.ScreenUpdating = False 
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "FMS" 
    Set SiteCol = Range("b12:b2000") 'Range containing values
    For Each ws In ThisWorkbook.Worksheets 
        For Each Cell In SiteCol 
            With ws 
                If IsEmpty(Cell) Then 
                    .Range("B7").Copy 
                    Sheets("FMS").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("B5").Copy 
                    Sheets("FMS").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("H7").Copy 
                    Sheets("FMS").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("H8").Copy 
                    Sheets("FMS").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("B9").Copy 
                    Sheets("FMS").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("C9").Copy 
                    Sheets("FMS").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("D9").Copy 
                    Sheets("FMS").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("K7").Copy 
                    Sheets("FMS").Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("K8").Copy 
                    Sheets("FMS").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("P8").Copy 
                    Sheets("FMS").Range("J" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("Q3").Copy 
                    Sheets("FMS").Range("K" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("Q5").Copy 
                    Sheets("FMS").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                End If 
                If Cell.Value > "0" Then 
                    .Range("B7").Copy 
                    Sheets("FMS").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("B5").Copy 
                    Sheets("FMS").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("H7").Copy 
                    Sheets("FMS").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("H8").Copy 
                    Sheets("FMS").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("B9").Copy 
                    Sheets("FMS").Range("E" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("C9").Copy 
                    Sheets("FMS").Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("D9").Copy 
                    Sheets("FMS").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("K7").Copy 
                    Sheets("FMS").Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("K8").Copy 
                    Sheets("FMS").Range("I" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("P8").Copy 
                    Sheets("FMS").Range("J" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("Q3").Copy 
                    Sheets("FMS").Range("K" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    .Range("Q5").Copy 
                    Sheets("FMS").Range("L" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats 
                    Selection.Value = Cells(Cell.Row, 13).Value 
                End If 
            End With 
        Next 
        With Worksheets("FMS") 
            On Error Resume Next 
            .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
            On Error Goto 0 
            LR = .Range("A" & Rows.Count).End(xlUp).Row 
            .Range("A1:B" & LR).Sort Key1:=Range("A1"), Order1:=xlAscending, _ 
            Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
        End With 
        Application.CutCopyMode = False 
        Application.ScreenUpdating = True 
    Next ws 
End Sub 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines



Any help with this would be greatly appreciated.

I am working with a spreadsheet with around 20,000 rows.

In a smaller spreadsheet, if I wanted to copy a formula down to the cells in the column below, I would simply drag and drop, or copy paste - easy..

Since this spreadsheet is so long, I'd like to be able to copy/drag the formula to all 20000 rows without manually scrolling down with the mouse button held down (as it takes ages)

Appreciate any suggestions for a shortcut.

I've got a spreadsheet with colums of data and calculations. Each row has the same formulas across the columns. I want to copy the row and paste it down. But i have a blank lines seperating various groups of data. Problem is that i need to copy the first row and select the rows with data and then hit paste - and do that for each section of rows that are seperated by a line. This takes for ever each time i make an update to a formula in a row. Sure it would be easier - if I didn't have blank rows seperating different groups - since then I could just copy and paste all the way down. But I like the seperation. Isn't there a way that excel can allow to paste only in rows that have data/formula and leave blank rows empty?

Tx,

I am new to this coding caper and I am desperate to learn.

I've got an excel sheet that has a whole bunch of data and it changes year to year. What I need to do is copy, paste special the previous years data, then change the variables to come up with current years data and then compare figures.

The problem is that the data is in a number of rows. Currently my code looks like this.

Code:

Range("C7:T7").Copy
    Range("AA7").PasteSpecial Paste:=xlValues
Range("C10:t10").Copy
    Range("AA10").PasteSpecial Paste:=xlValues
Range("C13:T13").Copy
    Range("AA13").PasteSpecial Paste:=xlValues
Range("C16:t16").Copy
    Range("AA16").PasteSpecial Paste:=xlValues
Range("C19:t19").Copy
    Range("AA19").PasteSpecial Paste:=xlValues
Range("C24:t24").Copy
    Range("AA24").PasteSpecial Paste:=xlValues
Range("C27:t27").Copy
    Range("AA27").PasteSpecial Paste:=xlValues
Range("C30:T30").Copy
    Range("AA30").PasteSpecial Paste:=xlValues
Range("C33:T33").Copy
    Range("AA33").PasteSpecial Paste:=xlValues
Range("C36:T36").Copy
    Range("AA36").PasteSpecial Paste:=xlValues
Range("C39:T39").Copy
    Range("AA39").PasteSpecial Paste:=xlValues
Range("C42:T42").Copy
    Range("AA42").PasteSpecial Paste:=xlValues
Range("C45:T45").Copy
    Range("AA45").PasteSpecial Paste:=xlValues
Range("C48:T48").Copy
    Range("AA48").PasteSpecial Paste:=xlValue
Range("C51:t51").Copy
    Range("AA51").PasteSpecial Paste:=xlValues
Range("C54:T54").Copy
    Range("AA54").PasteSpecial Paste:=xlValues
Range("C57:T57").Copy
    Range("AA57").PasteSpecial Paste:=xlValues
Range("C60:T60").Copy
    Range("AA60").PasteSpecial Paste:=xlValues
Range("C63:T63").Copy
    Range("AA63").PasteSpecial Paste:=xlValues
Range("C66:T66").Copy
    Range("AA66").PasteSpecial Paste:=xlValues
Range("C69:t69").Copy
    Range("AA69").PasteSpecial Paste:=xlValues
Range("C72:t72").Copy
    Range("AA72").PasteSpecial Paste:=xlValues
Range("C75:t75").Copy
    Range("AA75").PasteSpecial Paste:=xlValues
Range("C78:t78").Copy
    Range("AA78").PasteSpecial Paste:=xlValues
Range("C81:T81").Copy
    Range("AA81").PasteSpecial Paste:=xlValues
Range("C84:T84").Copy
    Range("AA84").PasteSpecial Paste:=xlValues
Range("C97:T97").Copy
    Range("AA97").PasteSpecial Paste:=xlValues
Range("C100:T100").Copy
    Range("AA100").PasteSpecial Paste:=xlValues
Range("C106:T106").Copy
    Range("AA106").PasteSpecial Paste:=xlValues
Range("C109:T109").Copy
    Range("AA109").PasteSpecial Paste:=xlValues
Range("C112:t112").Copy
    Range("AA112").PasteSpecial Paste:=xlValues
Range("C118:t118").Copy
    Range("AA118").PasteSpecial Paste:=xlValues
Range("C121:t121").Copy
    Range("AA121").PasteSpecial Paste:=xlValues

It doesn't run too slowly but it is very long and very messy. It also doesn't allow the flexibility to alter the spreadsheet.

I've tried playing around with loops but had no success. I've done a sample worksheet to show waht I want but don't know how to attach files.

Any help would be greatly appreciated.

Hello,
I am in need of a bit of VBA code that will copy formula output to adjacent cell. I think this is a two part problem. First, find the cells with a formula in them and then copy output to the cell on the right.

Criteria:
1. Set number of rows and columns. normally G23:BZ26.
2. Only data in range is this formula that adds other cells and gives a sum.
3. Most cells are blank and the formula cells always have a blank cell to the right. Formula cells comprise all four rows of a column.
4. I need to copy the output not the formula to the adjacent cell to the right.
5. The columns with formulas get deleted prior to publication of the spreadsheet. Put I need to output to remain
6. The columns with formulas are not at a set interval.

Thanks for any help you can give.
Jerry

I am trying to copy an example of 2 rows of 5 cells each into outlook to
e-mail to 300 people so they can put info into 5 of the cells and reply back
to me. When I receive this e-mail back I want to copy those 5 cells into a
spreadsheet that already exists replacing what is there with this new
information for each person. I have tried several methods of copy and paste
but each time I paste back into excel I get two rows of cells, one row of
empty cells and one with the new data. How can I avoid getting 2 rows of 5
cells when I am copying only one row of 5 cells? It is maddening!

Hi I was hopeing someone might be able to help me with this one:

I am currently trying to compile a definitive master staff list with their associated contact details. Currently different departments e.g. HR, Switchboard, IT have their own version of a "complete" staff list but none have been maintained and therefore have varying amounts of accuracy and varying lists of names. Using the most recent

I have 2 spreadsheets with lists of names and associated details in the adjacent cells e.g. b2:d10. I need a macro which will match names from the "Current Spreadsheet from HR.xls" against "Current spreadsheet from Switchboard.xls", then if the same member of staff is found in the switchboard list the macro will copy the details from "Current spreadsheet from Switchboard.xls" and paste it against the correct person/row in "Current Spreadsheet from HR.xls".

I think this will require a loop, as I need it to run down the column...

Any help would be greatly appreciated.

Thanks in advance