Posts by marcidee

    On average the spreadsheet will contain 60 - 70 people and over 3,000 lines of information - so I am looking for a script / VBA code that will do the following to alleviate manual work


    If I am reading your note above correctly you cannot have 2 blank lines between each name - I can already achieve 1 blank line so would like help with some VBA code that would:


    Place a total of the figures in column G - total in column F (last row)
    Repeat the headings from row 1 on each blank line


    Is this possible?

    Thank you for you help and feedback - I am trying to avoid any manual work so I am looking for help with a script.


    So to recap - ideally what I would like is:


    2 blank lines where a new name appears in column A
    First blank line totals column G (for that person)
    Second Blank line copies the heading from row 1


    Is that possible?


    If it won't work with 2 blank lines - would it be feasible to to place a total for column G into Column F (last row) - then the headings from row 1 copied into the blank line?

    I have managed to use a script that works on your suggestion above where everything appears on one sheet - however ideally I would like to insert 2 blank lines below each name (the script I am using below only inserts 1 line)


    In the first line it will have the total of column G (this I can do)


    on the second line I would like the heading from row 1 to repeat themselves [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]

    [tr]


    [TD="width: 247"]Name[/TD]
    [TD="width: 58"]Timesheet[/TD]
    [TD="width: 90"]P/E Date[/TD]
    [TD="width: 171"]Company[/TD]
    [TD="width: 70"]Time worked[/TD]
    [TD="width: 48"]Pay Rate[/TD]
    [TD="width: 67"]Total Pay[/TD]

    [/tr]


    [/TABLE]


    Please could you help with this?


    Sub AddBlankRows()
    '
    Dim iRow As Integer, iCol As Integer
    Dim oRng As Range


    Set oRng = Range("a1")


    iRow = oRng.Row
    iCol = oRng.Column


    Do
    '
    If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
    iRow = iRow + 2
    Else
    iRow = iRow + 1
    End If
    '
    Loop While Not Cells(iRow, iCol).Text = ""
    '
    End Sub


    So it would look like the below [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]

    [tr]


    [TD="width: 247"]Name[/TD]
    [TD="width: 58"]Timesheet[/TD]
    [TD="width: 90"]P/E Date[/TD]
    [TD="width: 171"]Company[/TD]
    [TD="width: 70"]Time worked[/TD]
    [TD="width: 48"]Pay Rate[/TD]
    [TD="width: 67"]Total Pay[/TD]

    [/tr]


    [tr]


    [td]

    Abimbola Dunsin (Dunsin) B

    [/td]


    [td]

    1

    [/td]


    [td]

    Fri 02 Aug 2019

    [/td]


    [td]

    Brighton & Hove Social Services

    [/td]


    [TD="align: right"]0.75[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]6.75[/TD]

    [/tr]


    [tr]


    [td]

    Abimbola Dunsin (Dunsin) B

    [/td]


    [td]

    1

    [/td]


    [td]

    Mon 05 Aug 2019

    [/td]


    [td]

    Constance Rubidge

    [/td]


    [TD="align: right"]0.25[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]2.25[/TD]

    [/tr]


    [tr]


    [td]

    Afaque Solangi

    [/td]


    [td]

    1

    [/td]


    [td]

    Mon 12 Aug 2019

    [/td]


    [td]

    Mohsen Taheri

    [/td]


    [TD="align: right"]7[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]63[/TD]

    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [TD="align: right"]72[/TD]

    [/tr]


    [tr]


    [td]

    Name

    [/td]


    [td]

    Timesheet

    [/td]


    [td]

    P/E Date

    [/td]


    [td]

    Company

    [/td]


    [td]

    Time worked

    [/td]


    [td]

    Pay Rate

    [/td]


    [td]

    Total Pay

    [/td]


    [/tr]


    [tr]


    [td]

    Afaque Solangi

    [/td]


    [td]

    1

    [/td]


    [td]

    Tue 13 Aug 2019

    [/td]


    [td]

    Mohsen Taheri

    [/td]


    [TD="align: right"]7[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]63[/TD]

    [/tr]


    [tr]


    [td]

    Afaque Solangi

    [/td]


    [td]

    1

    [/td]


    [td]

    Wed 14 Aug 2019

    [/td]


    [td]

    Mohsen Taheri

    [/td]


    [TD="align: right"]7[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]63[/TD]

    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [TD="align: right"]126[/TD]

    [/tr]


    [tr]


    [td]

    Name

    [/td]


    [td]

    Timesheet

    [/td]


    [td]

    P/E Date

    [/td]


    [td]

    Company

    [/td]


    [td]

    Time worked

    [/td]


    [td]

    Pay Rate

    [/td]


    [td]

    Total Pay

    [/td]


    [/tr]


    [tr]


    [td]

    Amalia Gatou B

    [/td]


    [td]

    1

    [/td]


    [td]

    Thu 15 Aug 2019

    [/td]


    [td]

    Amanda King

    [/td]


    [TD="align: right"]1[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]9[/TD]

    [/tr]


    [tr]


    [td]

    Amalia Gatou B

    [/td]


    [td]

    1

    [/td]


    [td]

    Fri 16 Aug 2019

    [/td]


    [td]

    Amanda King

    [/td]


    [TD="align: right"]0.25[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]2.25[/TD]

    [/tr]


    [tr]


    [td]

    Amalia Gatou B

    [/td]


    [td]

    1

    [/td]


    [td]

    Sat 17 Aug 2019

    [/td]


    [td]

    Amanda King

    [/td]


    [TD="align: right"]0.25[/TD]

    [td]

    9.00

    [/td]


    [TD="align: right"]2.25[/TD]

    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [TD="align: right"]13.5[/TD]

    [/tr]


    [/TABLE]

    Thank you for your response - that won't help me as I am trying fine tune a process that is taking a long time - the list on the sheet can be very long and the information needs to extracted to email out (with an individual's payslip) - so once I have all the data separated into individual tabs - I can run a macro to format the data so that all that will need to be done is to copy and paste that data into an email.


    At present it is taking a colleague half a day to complete this task - if I can get the data into tabs and formatted I am hoping it will not take longer than 1 hour (maybe quicker)


    Hope that makes sense

    Please can you help with a script.


    I have a spreadsheet that goes on for numerous lines - I would like to create a news tab every time there is a name change in Column A - and copy the contents of all columns (B - G) - the name could appear on several rows.


    ie in the example below 3 new tabs created - one for each name - the tabs renamed with that person's name and all 6 columns columns copied


    Thank you for your help

    Abimbola Dunsin (Dunsin) B1Thu 08 Aug 2019Peter Howes9.00
    Abimbola Dunsin (Dunsin) B1Fri 09 Aug 2019Peter Howes9.00
    Abimbola Dunsin (Dunsin) B1Sat 10 Aug 2019Phillip Mercer9.00
    Abimbola Dunsin (Dunsin) B1Sun 11 Aug 2019Theresa Darling9.00
    Afaque Solangi1Mon 12 Aug 2019Mohsen Taheri9.00
    Afaque Solangi1Tue 13 Aug 2019Mohsen Taheri9.00
    Afaque Solangi1Wed 14 Aug 2019Mohsen Taheri9.00
    Amalia Gatou B1Thu 15 Aug 2019Amanda King9.00
    Amalia Gatou B1Fri 16 Aug 2019Amanda King9.00
    Amalia Gatou B1Sat 17 Aug 2019Amanda King9.00
    Amalia Gatou B1Sun 18 Aug 2019Amanda King9.00

    Thank you so much for your help.


    Not sure I can think of an easier way - sheet one comes from the 'plug in' that individuals complete - it creates 99 columns - the number of rows will be considerable more than in the example once we can get this right.


    I need to find a solution that pulls out only the required information for processing - which is what is in the example page I sent you - I guess in it's present state it is now usable - I didn't think it would be such a major challenge to remove the data for the days where they didn't work (but I think how the dates / times are coming into the table makes it a problem).


    I am sure someone that knows script would do things very differently!

    I wasn't looking to delete the rows just remove data from each cell - however deleting the rows probably could work (would need to move some other data that is on the same rows but that is nothing major.


    You will note that sheet one (first tab) contains the data for all timesheets that come from an on line plug in - I have some code that then copies the data from each line into a new tab (a new tab is created for each line in sheet one) and is inserted to line one of each tab. I have a macro that then sorts the data from line into the table and does this for each tab


    The results that are in the table are manually input intoour CRM for payroll purposes - so I am trying to make it a visually easy as possible

    Please can someone help me with a script / VBA code - I have a table 11 columns (D to N) and 7 Rows (Rows 7 to 13) - I would like the contents of each row removed if the value in column G or N (just one of those, which ever is easier to write the code for) (in that row) = 00:00 (00:00 is a time cell)


    In the example below - the 3rd row (sat 00 January 00) would just show no data (all data removed) making it easier to read the results - data is showing 00:00 (G or N)
    [TABLE="border: 1, cellpadding: 1, width: 500"]

    [tr]


    [td]

    D

    [/td]


    [td]

    E

    [/td]


    [td]

    F

    [/td]


    [td]

    G

    [/td]


    [td]

    H

    [/td]


    [td]

    I

    [/td]


    [td]

    J

    [/td]


    [td]

    K

    [/td]


    [td]

    L

    [/td]


    [td]

    M

    [/td]


    [td]

    N

    [/td]


    [/tr]


    [tr]


    [td]

    Mon 22 July 19

    [/td]


    [td]

    10:30

    [/td]


    [td]

    08:30

    [/td]


    [td]

    22:00

    [/td]


    [td][/td]


    [td]

    No

    [/td]


    [td]

    0

    [/td]


    [td]

    0

    [/td]


    [td]

    00:00

    [/td]


    [td][/td]


    [td]

    22:00

    [/td]


    [/tr]


    [tr]


    [td]

    sat 00 January 00

    [/td]


    [td]

    0

    [/td]


    [td]

    0

    [/td]


    [td]

    00:00

    [/td]


    [td][/td]


    [td]

    NO

    [/td]


    [td]

    0

    [/td]


    [td]

    0

    [/td]


    [td]

    00:00

    [/td]


    [td][/td]


    [td]

    00:00

    [/td]


    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [/tr]


    [/TABLE]

    I need to insert a blank line at the end of a series of quantity ‘1’ in column D as I need to create two sub totals per person in column D – one for where the units are 1 and one for where the units are anything bar 1 – could anyone help me with a script for this?


    I am using the below script to insert a blank row where the name changes in Column A and then I need a row added for when the series of ‘1’ finishes in column D


    So in the example below I need a blank in Dalton below the 4th row – can anyone help


    [TABLE="width: 546"]

    [tr]


    [td]

    Claire Easter

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    12.50

    [/td]


    [td]

    11.99

    [/td]


    [/tr]


    [tr]


    [td]

    Claire Easter

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    14.50

    [/td]


    [td]

    11.99

    [/td]


    [/tr]


    [tr]


    [td]

    Claire Easter

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    14.50

    [/td]


    [td]

    11.99

    [/td]


    [/tr]


    [tr]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [td][/td]


    [/tr]


    [tr]


    [td]

    Dalton Mudede

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    1.00

    [/td]


    [td]

    78.56

    [/td]


    [/tr]


    [tr]


    [td]

    Dalton Mudede

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    1.00

    [/td]


    [td]

    78.56

    [/td]


    [/tr]


    [tr]


    [td]

    Dalton Mudede

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    1.00

    [/td]


    [td]

    78.56

    [/td]


    [/tr]


    [tr]


    [td]

    Dalton Mudede

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    1.00

    [/td]


    [td]

    78.56

    [/td]


    [/tr]


    [tr]


    [td]

    Dalton Mudede

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    7.50

    [/td]


    [td]

    11.99

    [/td]


    [/tr]


    [tr]


    [td]

    Dalton Mudede

    [/td]


    [td]

    Support Worker

    [/td]


    [td]

    Hawthorn Way

    [/td]


    [td]

    7.50

    [/td]


    [td]

    11.99

    [/td]


    [/tr]


    [/TABLE]



    Sub AddBlankRows()
    '
    Dim iRow As Integer, iCol As Integer
    Dim oRng As Range


    Set oRng = Range("a1")


    iRow = oRng.Row
    iCol = oRng.Column


    Do
    '
    If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
    Cells(iRow + 1, iCol).EntireRow.Insert Shift:=xlDown
    iRow = iRow + 2
    Else
    iRow = iRow + 1
    End If
    '
    Loop While Not Cells(iRow, iCol).Text = ""
    '
    End Sub

    Re: Inserting totals of the Rows aboe where there is a blank line


    Hopefully this will get to you


    So to complete the job I need the sub totals in J and K


    (also if you are able to help?)


    In column E we have to insert the Sunday Week Ending date (the last day worked may not always be a Sunday) we have manually done this part the way down - if you know of a way to do that - that would be also really useful!


    Once all the Subtotals and Week Ending are in - the Name in Column B will be copied to the same line as 'KEEPIT' (I have a code for that) and all lines that do not have the word 'KEEPIT' will be removed (I have a code for that) - Leaving all lines with KEEPIT including the Name in Column B the week ending and the totals for that week

    I have a lengthy spreadsheet that has a blank row between a week ending and the next week beginning - I need to insert totals for columns J and K wherever there is a blank line for the rows above until it gets to the next blank line - can you help me write a script for this?


    [TABLE="width: 704"]

    [tr]


    [TD="class: xl68, width: 64, bgcolor: transparent"]A
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]B
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]C
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]D
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]E
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]F
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]G
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]H
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]I
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]J
    [/TD]
    [TD="class: xl68, width: 64, bgcolor: transparent"]K
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aaron Bramble
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Emily Elmy
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 09 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]680
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]710
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent, align: right"]0
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Aaron Bramble
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Emily Elmy
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 16 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]680
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]710
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aaron Bramble
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Emily Elmy
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 23 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]680
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]710
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent, align: right"]0
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Aaron Bramble
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Emily Elmy
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 30 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]680
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]710
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl65, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"]total here
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]total here
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Ana Paula Gingao Amaral
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 09 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]1125
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]1155
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Bryony Goodchild
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 09 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]405
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]450
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.75
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]10.85
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Bryony Goodchild
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 09 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]700
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]730
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Michelle Peck
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Monday 09 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]915
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]945
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Bryony Goodchild
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Tuesday 10 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]405
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]450
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.75
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]10.85
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Bryony Goodchild
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Tuesday 10 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]700
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]730
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Caroline Reason
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Tuesday 10 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]1155
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]1185
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl65, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"]total here
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]total here
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Michelle Peck
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Tuesday 10 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]920
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]950
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Ana Paula Gingao Amaral
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Wednesday 11 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]945
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]975
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Caroline Reason
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Wednesday 11 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]375
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]420
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.75
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]10.85
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"]Aileen Mccarthy
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]Ewa Pstragowska
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]Wednesday 11 05 16
    [/TD]
    [TD="class: xl65, bgcolor: transparent"]######
    [/TD]
    [TD="class: xl64, bgcolor: transparent"]E9
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]1145
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]1175
    [/TD]
    [TD="class: xl66, bgcolor: transparent"]14.47
    [/TD]
    [TD="class: xl63, bgcolor: transparent, align: right"]0.5
    [/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]7.24
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl65, bgcolor: transparent"][/TD]
    [TD="class: xl64, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"][/TD]
    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl63, bgcolor: transparent"]total here
    [/TD]
    [TD="class: xl63, bgcolor: transparent"]total here
    [/TD]

    [/tr]


    [/TABLE]

    I would like a script (if someone could help me) in Excel VBA - wherever there is the word 'KEEPIT' in column A in column B it copies the number from above on to the same row - so in my example below we would see 3649 in Column B on the same row as KEEPIT - 4921 on the same row and 5501 - and so on ....


    [TABLE="width: 128"]

    [tr]


    [TD="class: xl65, width: 64, bgcolor: transparent"]A
    [/TD]
    [TD="class: xl65, width: 64, bgcolor: transparent"]B
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]3649
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl68, bgcolor: transparent"]KEEPIT
    [/TD]
    [TD="class: xl67, bgcolor: transparent"][/TD]

    [/tr]


    [tr]


    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]4921
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl68, bgcolor: transparent"]KEEPIT
    [/TD]
    [TD="class: xl67, bgcolor: transparent"][/TD]

    [/tr]


    [tr]


    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]5501
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]5501
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl68, bgcolor: transparent"]KEEPIT
    [/TD]
    [TD="class: xl67, bgcolor: transparent"][/TD]

    [/tr]


    [tr]


    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]5575
    [/TD]

    [/tr]


    [tr]


    [TD="class: xl66, bgcolor: transparent"][/TD]
    [TD="class: xl67, bgcolor: transparent, align: right"]5575
    [/TD]

    [/tr]


    [/TABLE]


    Marc