Pasting issue

Giganews Newsgroups
Subject: Pasting issue
Posted by:  Btobin0
Date: Sun, 28 May 2006

I have a macro below where the search takes the information from Cell A1 adds
it to a hyperlink, copies information and pastes it back into excel.
Currently I have the range set to Z3 and Z15 where it pastes. My question is
if the Cell is A1 and has a date in it, how can I have it find another cell
with the same information and paste underneath it?

Range("A2").Select
        Selection.Copy
            Application.CutCopyMode = False
        Application.DisplayAlerts = False
    Workbooks.Open Filename:= _
    "/total." & Sheet1.Range("a1") & "." & Sheet1.Range("A1") & ".htm"
    Range("B6").Select
        Selection.UnMerge
            Range("B6:B16").Select
                Selection.Copy
                    ActiveWorkbook.Close
                        Application.DisplayAlerts = False
                    Sheets("Sheet1").Select
                Range("z3").Select
            ActiveSheet.Paste
    Workbooks.Open Filename:= _
    "/total." & Sheet1.Range("a1") & "." & Sheet1.Range("A1") & ".htm"
    Range("B18").Select
        Selection.UnMerge
            Range("B18:B28").Select
                Selection.Copy
                    ActiveWorkbook.Close
                Sheets("sheet1").Select
            Range("z15").Select
        ActiveSheet.Paste

Replies