Transferring data from one sheet to another

you have multiple sections, where will info should be copied
what if number of items selected is more than rows available currently in section
what is a value is entered in costing sheet and then removed
what if value is entered is negative or space or zero
why copy total, when the sheet already has formula to calculate total

Not sure what your first question means?
I was actually looking at the problem of having more rows than available. Not sure if it is possible to automatically add rows into the section if required.
Is there a way of it removing the line if the value is removed.
There will not be any negative values or zeros. If there is no positive figure entered the item will not be selected.
Think you are probably right on this point. i would say Description, UOM and rate are the only items that need to be carried across.

the quote sheet had section for labor, material etc.I am guessing all goes under "Material". i was asking about that in line #1

I understand now. I reckon the labour would be easier to be manually entered onto the quote sheet so maybe just leave that. All the rest would go under the material section.

In your sample book, you had a row i(row 31) n material section as not merged. Rest of section was merged. I would think that was an oversight. So first correct that issue. Macro will not work without it.

Before using this macro, you need to copy a function from this thread
https://ccm.net/forum/affich-606042-excel-vba2010-select-cells-between-2-keywords
function is "getItemLocation"

it starts with line
Public Function getItemLocation(sLookFor As String,

Copy the macro below, and also the function as mentioned before and then try this macro

Option Explicit

Public Sub populateQuote()
Dim quoteSheet                As String
Dim costSheet                 As String
Dim materialHeaderRow         As Long
Dim labourHeaderRow           As Long
Dim materialHeader            As String
Dim laborHeader               As String
Dim mergeStartCol             As String
Dim mergeEndCol               As String
Dim searchRange               As Range
Dim labourMaterialOffsetRow   As Integer
Dim tempSheet                 As String
Dim activeSheetName           As String
Dim costLastRow               As Long
Dim costLastColumn            As Integer
Dim diff                      As Long
Dim dayWorkHeader             As String
Dim dayWorkHeaderRow          As Long

   costSheet = "Costing"
   quoteSheet = "Quote"
   materialHeader = "EQUIPMENT / MATERIALS"
   laborHeader = "LABOUR"
   dayWorkHeader = "DAYWORK"
   mergeStartCol = "B"
   mergeEndCol = "D"
   labourMaterialOffsetRow = 3
   
   activeSheetName = ActiveSheet.Name
   With Sheets(costSheet)
      If (.Cells(1, 1) = vbNullString) Then .Cells(1, 1) = "a temp place holder"
      .AutoFilterMode = False
      costLastRow = getItemLocation("*", .Cells)
      costLastColumn = getItemLocation("*", .Cells, bFindRow:=False)
      dayWorkHeaderRow = getItemLocation(dayWorkHeader, .Cells)
      .Cells.AutoFilter Field:=3, Criteria1:="<>"
      Sheets.Add
      tempSheet = ActiveSheet.Name
      .Select
      Application.CutCopyMode = False
      If (dayWorkHeaderRow > 0) Then costLastRow = dayWorkHeaderRow
      .Range(.Cells(1, 1), .Cells(costLastRow, costLastColumn)).Copy
      Sheets(tempSheet).Cells(1, 1).PasteSpecial xlPasteValues
      Application.CutCopyMode = False
      .AutoFilterMode = False
      If (.Cells(1, 1) = "a temp place holder") Then .Cells(1, 1) = vbNullString
   End With
   
   With Sheets(tempSheet)
      costLastRow = getItemLocation("*", .Cells)
      .Application.CutCopyMode = False
      .Columns(mergeStartCol & ":" & mergeEndCol).Offset(columnOffset:=1).Insert
      .Range(.Cells(1, mergeStartCol), .Cells(1, mergeEndCol)).Offset(, 1).Merge
      Application.CutCopyMode = False
      .Range(.Cells(1, mergeStartCol), .Cells(1, mergeEndCol)).Offset(, 1).Copy
      .Range(.Cells(1, mergeStartCol), .Cells(costLastRow, mergeEndCol)).Offset(1, 1).PasteSpecial
      Application.CutCopyMode = False
      With .Range(.Cells(1, mergeStartCol), .Cells(costLastRow, mergeEndCol)).Offset(, 1)
         .NumberFormat = "general"
         .FormulaR1C1 = "=RC[-1]"
         Application.CutCopyMode = False
         .Copy
         .PasteSpecial xlPasteValues
         Application.CutCopyMode = False
      End With
      
   End With
   
   With Sheets(quoteSheet)
      Set searchRange = .Columns(mergeStartCol & ":" & mergeEndCol)
      materialHeaderRow = getItemLocation(materialHeader, searchRange, , False)
      If (materialHeaderRow = 0) Then
         MsgBox "Unable to locate '" & materialHeader & "' in range " & searchRange.Address
         GoTo Exit_populateQuote
      End If
      
      Set searchRange = .Range(.Cells(materialHeaderRow, mergeStartCol), .Cells(.Rows.Count, mergeEndCol))
      labourHeaderRow = getItemLocation(laborHeader, searchRange, , False)
      If (labourHeaderRow = 0) Then
         MsgBox "Unable to locate '" & laborHeader & "' in range " & searchRange.Address
         GoTo Exit_populateQuote
      End If
      
      .Range(.Cells(materialHeaderRow + 1, "B"), .Cells(labourHeaderRow - labourMaterialOffsetRow, "F")).ClearContents
      If (costLastRow > 1) Then
         diff = costLastRow - (labourHeaderRow - materialHeaderRow - labourMaterialOffsetRow) - 1
         If (diff > 0) Then
            Application.CutCopyMode = False
            .Rows(materialHeaderRow + 1).Copy
            .Rows(materialHeaderRow + 1 & ":" & materialHeaderRow + diff).Offset(1).Insert Shift:=xlDown
            Application.CutCopyMode = False
         End If
         
         Sheets(tempSheet).Range(Sheets(tempSheet).Cells(2, "B"), Sheets(tempSheet).Cells(costLastRow, "B")).Offset(, 1).Copy
         .Cells(materialHeaderRow + 1, "B").PasteSpecial xlPasteValues
         Application.CutCopyMode = False
         
         Sheets(tempSheet).Range(Sheets(tempSheet).Cells(2, "F"), Sheets(tempSheet).Cells(costLastRow, "F")).Copy
         .Cells(materialHeaderRow + 1, "F").PasteSpecial xlPasteValues
         Application.CutCopyMode = False
         
         Sheets(tempSheet).Range(Sheets(tempSheet).Cells(2, "H"), Sheets(tempSheet).Cells(costLastRow, "H")).Copy
         .Cells(materialHeaderRow + 1, "E").PasteSpecial xlPasteValues
         Application.CutCopyMode = False

      End If
   End With
   
Exit_populateQuote:
   Application.DisplayAlerts = False
   Sheets(tempSheet).Delete
   Application.DisplayAlerts = True
End Sub

I am fairly new to all this but am trying to learn asap.
Do i create a new macro and paste both in?
Not too sure about what i am doing

1. Make a backup copy of the file

2. open the excel file

3. press ALT and F11 keys at the same time to open Visual basic Editor (VBE)

4. Go to Insert add a new module

5. Copy the code from https://ccm.net/forum/affich-684722-transferring-data-from-one-sheet-to-another#8 starting from "Option Explicit" till (including) "End Sub"

6 Go to https://ccm.net/forum/affich-606042-excel-vba2010-select-cells-between-2-keywords#1 and copy for function "getItemLocation" thats starts wtih "Public Function getItemLocation(sLookFor As String," and ends with "End Function"

7. Enter the quantity in sheet "Costing"

8.Go to excel withdow

9. Go to "View" option at the top of menu

10 Click on "Macro" option

11, Click on "View Macro"

12. Select macro "populateQuote"

13 Click on run.

Hi rizvisa1,
That works. Thank you very much.
One more thing, do i have to run the macro every time or should it work automatically?

over that issue by installing a macro that runs by clicking on an area of the page.
The only problem i am now having is that whenever i click on that button or view your macro and click run it updates the quote page but shoots the costing page all the way to the bottom

"do i have to run the macro every time or should it work automatically"

No you have to run youself. My Idea was when you have entered all information, and ready to generate quote, you would run this macro

"shoots the costing page all the way to the bottom"
I am not 100% sure what you meant. But from what I understood. once you run the macro it is moving the Material cost area down. Could you post a book that shows that behaviour

Please see link below
http://dl.dropbox.com/u/83123211/Maintenace%20costing%20sheet.xlsm

It did work for me. What is the issue ? could you show how it is with macro and how you expected it to be

Hi rizvisa1,
Yet again I must apologise. After much searching I have found a border down the bottom of the sheet which was causing the page to go to the bottom after I ran the macro. Now removed it works perfectly.
Thank you very much for your help