Add records to sheets based on a variables table

How do I incorporate a Variables Table (see below) so that
records are added based on it?
>
> Names: Sheet Name:
> Robert a/c 1 Robert Cash
> Dilbert a/c 3 Dilbert Cash
> Eggbert a/c 2 Other Cash
> Sherbert a/c 1 Other Cash
>
> Also, instead of cell G2 as reference, I would like to identify the
> concatenation of cells F2 and G2 together, then vlookup for this output under
> "Names:" on the VariablesTable and add record to the corresponding "Sheet
> Name:".........is this possible? Thanks for all your help!
>
>
> "Bob Phillips" wrote:
>
> > Dim sh As Worksheet
> >
> > Set sh = Worksheets("CashEntry")
> > With Worksheets(sh.Range("G2").Value)
> > If .Cells(2, 3).Value = Empty Then
> > sh.Range("C2:P3").Copy
> > .Range("C2").PasteSpecial (xlPasteValues)
> > Else
> > sh.Range("C2:P3").Copy
> > .Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial
> > Paste:=xlPasteValues
> > End If
> > End With
> >
> >
> >
> > --
> > ---
> > HTH
> >
> > Bob
> >
> >
> > (there's no email, no snail mail, but somewhere should be gmail in my addy)
> >
> >
> >
> > "Brice" <(E-Mail Removed)> wrote in message
> > news:E421FAFA-8470-4BB2-8D16-(E-Mail Removed)...
> > >I currently have (script below) macro which adds a record (from "CashEntry"
> > > sheet, cells $C$2:$P$3) to the bottom of a list (on another sheet
> > > ""CashTransferRecord") .
> > >
> > > My Request: I would now like the ability to add the record to one of four
> > > different sheets (instead of solely the "CashTransferRecord") based on a
> > > Variables Table (see below). So, the macro will identify the Name located
> > > in
> > > 'CashEntry" cell G2, then add the record to bottom of list onto the
> > > appropriate Sheet Name.
> > >
> > > Variables Table:
> > >
> > > Names Sheet Name
> > > Robert RobertCash
> > > Dilbert DilbertCash
> > > Q-Bert Q-BertCash
> > > Eggbert EggbertCash
> > >
> > >
> > > __________________________________
> > > Sub CopyPasteOntoDatabase()
> > >
> > > Sheets("CashTransferRecord").Select
> > > If Cells(2, 3).Value = Empty Then
> > > Worksheets("CashEntry").Range("$C$2:$P$3").Copy
> > > Worksheets("CashTransferRecord").Range("C2").PasteSpecial
> > > (xlPasteValues)
> > > Else
> > > Worksheets("CashEntry").Range("$C$2:$P$3").Copy
> > > Worksheets("CashTransferRecord").Range("C65000").End(xlUp).Offset(1,
> > > 0).Cells.PasteSpecial (xlPasteValues)
> > > End If
> > >
> > > End Sub