looping through headers and pasting information

Hey all,

I have 2 headers which need to be filled in to the end of the worksheet. I have the first two rows filled out with the proper information, I just can't figure out how to move over 2 cells paste the information and continue this until the end of the file. any help is greatly appreciated!

Post your code ... ideally in a sample workbook.

Regards

You don't need to post the confidential data ... just what you want to end up with (in terms of the headings).

What does this mean: "I need those two headers pasted through the entire workbook in the first cell."?

Cells(1, 2) and Cells(1, 3) are cells B1 and C1 so how is that the "first cell".

What do you mean by "through the entire workbook"? Each sheet in the workbook? Are there any sheets that don't want this writing to them?

Regards

I'm still not sure I understand what you are trying to do but the following code will repeat those two cells across the top row.

It looks longer than it really is due to a) having to define and set up some test variables, and b) the comments which will, hopefully, clarify what's going on.

General caveat: this is one way to do it; there may be other and better ways.

Regards

Option Explicit
Sub Test()
Dim svr As String   ' for testing
Dim dname As String ' for testing
Dim LastCol As Long ' last colum
Dim i As Long       ' loop counter
Dim tRange As Range ' Target Range for copying to
'
svr = "s"               ' for testing
dname = "d"             ' for testing
LastCol = Columns.Count ' identify last column
' original cell formulae
Cells(1, 2) = svr & "," & dname & "'I/Os per Second'"
Cells(1, 3) = svr & "," & dname & "'Response Time (ms)'"
' Build Target Range
For i = 4 To LastCol - 2 Step 2
    If tRange Is Nothing Then
        Set tRange = Cells(1, i)
    Else
        Set tRange = Union(tRange, Cells(1, i))
    End If
Next 'i
' copy "base" cells across the top row
Range("B1:C1").Copy tRange
End Sub

You're welcome. Thanks for the feedback.